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ABSTRACT 



A SATCOM Signal Analyzer (SSA) is being developed by the 
Satellite Conmunications Laboratory of the Naval Postgradu- 
ate School. The purpose of this systen is to provide high- 
speed multi-channel digital spectrum analysis and character- 
ization of the outputs of UHF commun i ca t i on satellite tran- 
sponders while in orbit and operating. A Digital Computer 
Subsystem provides the control for most of the equipment in 
the sys tem. 

The thesis documents a portion of the software develop- 
ment for this subsystem. This software performs all opera- 
tor interaction using a Touch Input Systen and a Graphics 
Display. It is controlled to a large extent by menu data 
stored in a disc file, which can easily be extended or modi- 
fied. 



N on-trivial file management and concurrent processing of 
several functions are major characteristics of this 
software. 
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INTRODUCTION 



I . 

A. BACKGROUND 

This project is part of the 5ATC0M Signal Analyzer (SSA) 
being developed by the Satellite Connunications Laboratory 
of the Naval Postgraduate School# It is a prototype that 
will be delivered to NAVCOMSTA Stockton for operational and 
reliability evaluation* 

The purpose of the SSA is to provide the user a means of 
doing spectrum monitoring continuously and to permit a 
method of making changes in the spectrum processing with 
ease. The technical characteristics of this system are (1) 
a minicomputer for control, (2) array processors for 
analysis, (3) multiple receiver channels, (A) real-time 
displays, and (5) hardcopy output. Fig. 1.1 gives a simpli- 
fied diagram of this system. 

A Digital Computer Subsystem provides the control for 
most of the equipment. It is constructed around a DEC 
PDP-11/34 minicomputer. 
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Figure 1.1 

Structure of the SSA 
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B. NATURE OF THE PROBLEM 

Real-time monitoring, processing of operator I/O, and 
control of equipment has to be done by the software of the 
PDP-11/34 minicomputer. Beside processing of time-critical 
events the operator should be given the possibility of ini- 
tiating several functions which can be distinguished by 
priority and volume. While any number of functions are be- 
ing performed it has to be possible to always initialize 
other functions that are more important at a given time by 
interrupting current ones. 

C. SCOPE OF THIS REPORT 

This report documents part of the software development 
for the SSA Digital Computer Subsystem. The documentation 
will give a general view of the SSA Digital Computer Subsys- 
tem and its software. It will cover in detail the Back- 
ground (3G) Monitor which performs operator interaction and 
certain hardware control functions. Also the Support 
Software which was developed for the BO Monitor will be 
presented. Appendix A lists the present software and docu- 
men t a t i on . 
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II . 



SSA DIGITAL COMPUTER SUBSYSTEM 



A. INTRODUCTION 

The operation of the SSA is controlled by the SSA Digi- 
tal Computer Subsystem. This subsystem processes various 
inputs from array processors, frequency receivers, AM/FM re- 
ceivers, and operator control devices. It controls syn- 
thesizers, receivers, a hardcopy unit, and monitoring dev- 
ices. Fig. 2.1 illustrates the SSA Digital Computer Subsys- 
tem. 

E. SOFTWARE REQUIREMENTS 

The Digital Computer Subsystem performs different kinds 
of functions. Processing of time-critical functions has the 
highest priority in this system. Operator interaction is 
processed at the next priority level. It includes functions 
like change of system parameters, requests for certain 
displays, and hardcopy. If none of the above processing has 
to be done, lower priority functions will be executed. 
These "Background Tasks" include hardware operation tests, 
report generation, post analysis, etc. 
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Figure 2.1 

SSA Digital Computer Subsystem 



from Spectrum Receivers 
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Ill . 



SSA MONITOR SOFTWARE 



A . INTRODUCTION 

The SSA Monitor software falls into two categories. The 
System Software will be a resident part of the SSA. The 
Support Software is used to create a data file which pro- 
vides the System Software with necessary information to 
display images on the HP Terminal and process operator in- 
puts. The System Software development has been accomplished 
in two steps. Most of the program editing, testing, and de- 
bugging was done using the UNIX operating system. The 
second step was to transfer the system software to RT-11 and 
perform final testing and debugging. The Support Software 
was entirely developed under UNIX. 

The programming language RATFOR was used for software 
development . 

This chapter gives an overview of the different software 
components. More detailed information about the BG Monitor 
software is presented in the following chapters. 

B. OPERATING SYSTEMS 

There were several the reasons for using two different 
operating systems in the development of the system software. 
RT-11, which was chosen for the SSA Digital Computer Subsys- 
tem, had some disadvantages compared to UNIX. The editing 
functions and the file management of UNIX were superior to 
RT-11. Also RT-11 allowed no t ime- sha r ing . In addition the 
UNIX RATFOR preprocessor could be used to create FORTRAN 
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programs. This allowed programming in a more 



structured 



way. The RAT FOR programs were easier to write, read, test, 
and debug . 

RT-11 in its Fo r e g r o u nd / Ba c kg r o und version is a single 
user, two job system restricted to 28K words of memory. In 
this f o r e g r o u nd / ba c kg ro und environment, two independent pro- 
grams can reside in memory. The foreground program is given 
priority and executes until it relinquishes control to the 
background program; the background program executes until 
control is again required by the foreground job. 

RT-11 provides the user with several programmed re- 
quests. The feature of invoking user-written completion 
routines was used to a large extent in the BG Monitor. A 
completion routine has to be scheduled using a programmed 
request. It then is entered in a queue and will be called 
by RT-11 when the specified event has happened. Such an 
event may be a certain time lapse or the completion of some 
I/O. Thus RT-11 provided five different levels of program 
execution: 

- interrupt routine execution 

- foreground completion routine execution 

- foreground program execution 

- background completion routine execution 

- background program execution 

C. RATFOR LANGUAGE 

The programming language FORTRAN was chosen to be imple- 
mented in the SSA Digital Computer Subsystem running under 



RT- 1 1 . 



As FORTRAN is an unpleasant language to sone extent, 



the RAT FOR preprocessor of the UNIX system was used to con- 
ceal the main deficiencies of FORTRAN. Thus decent control 
flow statements, free form input, and sone other features 
were available. RAT FOR programs were easier to write, to 
read, to debug, and to maintain. 

D. SYSTEM SOFTWARE 

1. Foreground Mo nitor 

— -- -- ■ 

This program mainly is interrupt driven to control 
certain time critical processes, like recording data on disc 
and processing data from array processors. The Foreground 
(FG) Monitor is a resident part of the System Software. Its 
functions are controlled by parameters set by BG Monitor. 

2 . Background Monitor 

The main functions of this program are processing of 
operator interaction and low priority BG Tasks. It executes 
as a background job. Part of the BG Monitor is resident, 
whereas 3G Tasks are stored on an image file to be swapped 
in by RT-11 when their functions are needed. The following 
chapters will further document the BG Monitor. 

3 . Foreground/Background Communication 

FG Monitor and BG Monitor communicate with each oth- 
er using the communication services provided by RT-11. They 
allow sending data messages in either direction. The data 
that has to be shared by both Monitors is the Parameter 
Block (PB) and the Status Block (SB). The PB contains all 
parameters to control the functions of the FG Monitor. It 
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is updated by the B G Monitor and then as a whole sent to the 
FG Monitor. The SB provides all information about the sys- 
tem status. It is updated by the FG Monitor and on request 
transferred to the BG Monitor. 

E. SUPPORT SOFTWARE 
1 . Introduction 

The functions of the BG Monitor are to a large ex- 
tent based on data stored on a menu file. These menus con- 
tain all information necessary to display a requested image 
at the operator control console and to process related in- 
puts from the operator. This menu file is created, updated 
and checked by the Support Software which runs off-line 
under UNIX. 

2 • Menu Editor 

This program updates the menu file by processing an 
input file that contains necessary information in standard 
formats. Based on general information about a menu it gen- 
erates a set of display commands to create an image. Also, 
all necessary information to process inputs from either the 
keyboard or the Touch Input System is prepared and stored in 
the menu file. 

3 . Menu Checker 

This program allows checking of all information that 
is stored on the Menu File. It extracts all requested in- 
formation and presents it in a readable format. Thus any 
modification of the menu file can be verified. 
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IV. 



BACKGROUND MONITOR 



A. INTRODUCTION 

This chapter will present the Background Monitor, which 
executes in the background environment of RT-11. The 
hardware used by the Background Monitor will be addressed 
first. Then the general software structure and detailed 
software description will follow. 

Special terminology used to document the Background Mon- 
itor will be introduced when appearing the first time in the 
tex t . 

B. HARDWARE ENVIRONMENT 

1 . Introduction 

The hardware used for the Background Monitor was 
constructed around the DEC PDP-11/34 minicomputer. Most of 
the equipment was standard peripheral devices. A dual disc 
drive was used which provided an on-line storage capacity of 
80 megabits. A daisy wheel printer terminal was used to 
provide hardcopy output and its keyboard served as a backup 
for the Touch Input System. Off-line storage for transfer- 
ring extracted output data and software was provided by a 
magnetic tape unit. A hardcopy unit was used to output ex- 
act copies of graphics displays. Finally the HP Terminal 
and the Touch Input System have to be addressed. Their main 
features are described in the following paragraphs. 

2 • Hewlett-Packard 2649A Terminal 

This terminal has a 5 inch by 10 inch rectangular 
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display providing 24 lines of up to 80 characters. Some of 



the terminal's capabilities are screen up and down rolling, 
insertion and deletion of characters and lines, cursor sens- 
ing and addressability, tabulation, margin setting, line 
drawing, and different character sets. 

The image is self-refreshing and portions of the im- 
age can be displayed in different modes, like blinking, re- 
verse, halfbright, or a combination thereof. All operations 
are controlled by the terminal's microprocessor. 

3 . Carroll Touch Input System 

The system provides a means for the operator to in- 
teract with the BG Monitor. The Touch Input System is im- 
plemented by utilizing a scanning infrared beam technology. 
A panel is attached to the Hewlett-Packard (HP) 2649A Termi- 
nal in such a way that the screen is surrounded by LED em- 
itters on the bottom and left side and pho t o t r a n s i s t o r 
detectors on the right side and top. Thus they form a grid 
of infrared light beams across the display area. To ac- 
tivate the input system, the operator touches the CRT screen 
and then the X,Y coordinates of the touch point are 
transmitted to the host computer. 

The Touch Input System provides some benefits in 
contrast to a keyboard. (1) The operator does not have to 
alternate between looking at the display for instructions 
and the keyboard to respond to the system. (2) The touch 
targets can be located at different positions; thus position 
becomes a software design parameter. (3) Only the valid in- 
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put options at a particular situation need to be displayed, 
thus eliminating confusion and input errors. (4) The legend 
of each touch target is determined by the data displayed on 
the screen. It is easy to change and there is a large 
variety of possible legends. 

C. SOFTWARE STRUCTURE 
1 . Introduction 

There existed two constraints for the development of 
the BG Monitor. (1) There was a limit in available memory 
in the minicomputer and (2) the execution time had to be 
fast enough to react to operator requests in quasi real 
time. 

For these reasons there was no display image genera- 
tion done by the BG Monitor. Rather the set of display com- 
mands for each image (menu) were stored on disc in the Menu 
File. Additionally, all BC Tasks, which perform mutually 
independent functions, were linked as memory overlays on a 
RT-11 memory image file. They were swapped in by RT-11 when 
they were to be executed. Thus the structure of the BG Mon- 
itor shows a computer resident program part (BG Controller) 
and non-resident program parts (BG Tasks). 

The RT- 1 1 -pro vided swapping of BG Tasks allows 
memory independent growth of the BC Monitor. Only the size 
of a BG Task is limited, not their number. 

Besides this e x t e nd a b i 1 i t y , ease of maintainability 
was supported. As far as possible, program and data were 
separated. Sharing of data by the program's nodules was 
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kept minimal. 

2 . Background Controller 

This resident part of the 3 G Monitor was designed to 
be highly independent of any BG Task or data on the menu 
file. Its components are the Executive and several 
Managers. The BG Controller processes requests by the 
operator or any of the BG Tasks. 

Two different levels of program execution are imple- 
mented. Most of the BG Controller's modules run on a com- 
pletion routine level (scheduled by the program, called by 
RT-11). The remaining parts execute as BG mainline pro- 
grams . 

3 . Background Tasks 

A BG Task performs a group of related functions. 
The tasks are independent of each other. Only one BG Task 
is executed at a time. Using the overlay feature of RT-11, 
these BG Tasks all reside in the sane memory area. 
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BACKGROUND CONTROLLER 



V . 



A. INTRODUCTION 

The following paragraphs give a detailed docunentation 
of the resident part of the BG Monitor. Additional informa- 
tion is embedded in the program listings. 

The BG Controller has the following components: 

- Execut i ve 

- Control I/O Manager 

- Input Manag e r 

- Control Command Manager 

- Menu Manager 

- Parameter Block Manager 

- Log Manager 

- Message Manager 

The Executive consists of the main program and some Com- 
mon Routines called by other BG Managers. Any request for 
operator input by the Executive or a BG Task is processed by 
the Control I/O Manager. Operator inputs from either key- 
board or Touch Input System are processed by the Input 
Manager. The Control Command Manager interpretes inputs for 
the BG Controller. The Menu Manager updates the display im- 
age and provides the BG Controller with all information 
about possible inputs. Updating of the Parameter Block for 
the FG Monitor is done by the Parameter Block Manager. If 
requested the Log Manager logs all operator inputs. Finally 
the Message Manager displays and erases all warning messages 
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and input related messages. 

Most of the BG Controller Managers execute on completion 
routine level. The Input Manager re-schedules itself 
periodically to process any operator input. Thus this 
Manager and all other Managers called from it (Control Com- 
mand Manager, Parameter Block Manager, Log Manager) execute 
on completion routine level. 

The Menu Manager has to perform certain functions after 
some time lapse (i.e. erasing of a displayed menu some time 
after an input occurred). On the other hand the Menu 
Manager may be invoked based on a BG Task request or based 
on an operator input. Scheduling the call takes advantage 
of the PvT- 1 1 -pro vided queueing function and thus avoids any 
conflict . 

Similar reasoning applies to the Message Manager being a 
completion routine. It may be invoked by all other BG Moni- 
tor programs, which either run on completion routine level 
or as BG mainline programs. Fig. 5.1 shows the structure of 
the BG Controller. 
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Figure 5.1 

Structure of the BG Controller 




Legend: * Completion Routine 

Called as Mainline Program 

Called as Completion Routine 
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The BG Controller provides the operator with an in- 



teresting feature. It is possible to interrupt any active 



function of this program by selection of another function. 
This may create a chain of unfinished functions, and when 
the last one is finished the former one automatically will 
be invoked again. 



The operator has started a BG Task that performs certain 
hardware tests. While this is being done he may invoke 
another function to have some documentation displayed. 
While doing this, the operator wants the system status and 
he starts another function to display the status. Even now 
he may invoke again an already interrupted function. 

When the operator disables an active function, the most 
recent interrupted function will continue. 

The following text uses certain fixed terms, whose mean- 
ings are given below: 



Examp le : 



button: 



displayed button on the screen 



permanent button: button always being displayed on 



the screen at a fixed location 



- menu : 



display image with all possible 



Input information 



input option: 



information about a possible input 



menu-id : 



identification of a certain menu; 



it is the number of a menu's first 



data record in the menu file 



task menu : 



menu which is initiated by any BG 
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Task 



- controller menu: menu which is initiated by the 

resident 3G Controller 



B. COMMON DATA 

This paragraph will document important common data which 
are used by more than one BG Manager. 

1 . Menu Table 

The one-dimensional array 'cientbr is used to 
reserve memory locations to store display image and input 
options of a menu. The lower part of this array contains 
the input options of the permanent buttons. This informa- 
tion stays there all the time. The upper half of the array 
is used to temporarily store menu records with display im- 
ages. After the display image has been transferred to the 
HP terminal, this array will store the remaining input op- 
tions of a specific menu. 

2 . Menu Stack 

The BG Controller allows certain menus to 
"overwrite' other menus being displayed. In order to get 
back to previously displayed menus, their menu-ids are 
stacked in "menstk". This menu stack can store up to 20 
menu-ids. Should an overflow occur, the whole stack will be 
saved in the menu stack file. In case there is a stack un- 
derflow and a menu stack is saved in the file, it will be 
retrieved from the file. Thus the last initiated menu is 
displayed first (last in, first out). 
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3 . 



Message Stack 



The array 'msgstk' is used as a stack for saved 
warning messages. It consists of an upper and a lower half. 
In case of a stack overflow, the lower half is saved in the 
message stack file to provide empty entries for any more 
warning messages. Then new messages always will be entered 
into the lower half and saved in the file if necessary. 

Retrieval of warning messages from the stack is done 
from the upper half. If it is empty, the oldest saved stack 
in the menu file will be stored in the upper half of the 
stack. 

This method assures that the oldest messages will 
always be displayed next (first in, first out). To save 
memory, the messages are stored in variable length format* 

C. EXECUTIVE 

The Executive of the BG Controller consists of the main 
program and the Common Routines. The Common Routines are 
used by more than one BG Manager. The Executive is called 
by RT-1I when the BG Controller is started and executes as a 
BG mainline program. The Executive does not return control 
to RT-11; rather, it stays in an infinite loop. The overall 
algorithm is given below: 

Preset all Common Data 
Open all files 
Initialize EP Terminal 

Schedule Menu Manager to display initial start menu 
Do forever 
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Get next 3 G Task identifier from Control I/O Manager 
Call BG Task 
Close all files 

Thus the Executive receives the request for the next 3G Task 
from the Control I/O Manager and then transfers control to 
the selected BG Task. The following paragraphs discuss the 
Common Routines. 

1 . Common Routine 'endfbk' 

Feedback to any operator's input is done in the fol- 
lowing way. There is always an acoustic feedback. Per- 

manent buttons on the screen are displayed in a reverse mode 
if the related function is active. Other buttons are 
displayed in reverse mode after they have been selected by 
the operator. The permanent buttons for hardcopy are 

displayed in a reverse mode for about one second. If these 

functions are activated, the Input Manager reverses the but- 
ton display and schedules this Common Routine to be executed 
one second later. It then will display the button in the 
normal mode again. 

2 . Common Routine 'enhanc' 

This routine performs an enhancement of a displayed 
button on the screen. It retrieves the necessary button 
coordinates from the input options and sends a command 
string to the HP terminal to perform the requested enhanc- 
men t . 
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3. 



Conrnon Routine "errmsg" 



This routine was implemented for two reasons, (1) 
The Message Manager which is responsible for display of any 
operator input related messages or warning messages is a 
completion routine and may not be called by programs execut- 
ing as a BG mainline program (e.g. BG Task). Thus the mes- 
sages have to be stored temporarily until the Message 
Manager is called. (2) There is only one routine processing 
all requests to display a message. 

There is a buffer for only one i n pu t - r e 1 a t e d mes- 
sage; the Message Manager will be invoked to display the 
message before the next operator input is possible. Warning 
messages may be created in a larger number until the next 
call of the Message Manager. Thus the variable length mes- 
sages are stored in a buffer large enough to save 230 char- 
acters of text. 

4 . Common Routine ^ascint" 

All the information on the Menu File is coded in 
ASCII. In order to store a three digit integer number in 
two bytes (one word), such a number is converted using the 
following transformation: 

Upper Byte = integer/30 + 40 

Lower Byte = integer modulo 30 4* 40. 

This ensures that both bytes will contain valid ASCII char- 
acters. This routine will convert such a coded number into 



an integer. 



CONTROL I/O MANAGER 



This is a BG mainline program. It is called by either 
the Executive or any BG Task to process a request for input 
from the operator. These calls are mutually exclusive; ei- 
ther the Executive is executing or it has transferred pro- 
gram control to a BG Task. The Control I/O Manager returns 
only when a valid operator input has been made. Thus it 
remains looping until the Input Manager provides a valid in- 
put. If a BG Task requests that a new menu has to be 
displayed, the Control I/O Manager will schedule the immedi- 
ate call of the Menu Manager. 

E. INPUT MANAGER 

This program executes on completion routine level. Thus 
it will not be interrupted by any BG Monitor program. It is 
initially called by the Executive and then it re-schedules 
its call every 0.1 seconds by using an RT-11 programmed re- 
quest. It examines the cornnan data "flag" to check whether 
any operator input has ocurred. 

Upon an input from the operator the Log Manager will be 
called to log the command if requested and feedback will be 
provided. If the chosen input option requests a new menu to 
be displayed the Menu Manager will be scheduled to display 
it. Otherwise the currently displayed menu will be erased 
one second later. In case of an input from a permanent but- 
ton the Control Command Manager is called. Note that all 
programs called by the Input Manager also execute on comple- 
tion routine level. 
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CONTROL COMMAND MANAGER 



- PRINT CRT2; 

- STATUS: 

- SELECT: 

- CONTROL: 

- HELP: 



This program processes all inputs fro ip. permanent buttons 
or any controller menu buttons. The permanent buttons are: 

- PRINT CRT1: Make a hardcopy of the graphics 

display on CRT 1 

Make a hardcopy of the graphics 
display on CRT 2 
Display the system status 
Select a new function 
Change SSA control parameters 
Provide help to the operator 
with respect to further actions 

- ACKNOWLE DGE : Ac kno v/1 e d gemen t of a displayed warning 

mesage; erase it 

The permanent buttons Status, Select, Control, and Help 
function in an on/off in ode. When they are chosen the first 
time, the function is initiated, the menu will be displayed, 
and the permanent button will become enhanced . When an ac- 
tive function (permanent button is enhanced) is chosen, the 
function will be deactivated, the button will be displayed 
normally, and any waiting menu or the initial start menu 
will be displayed. 

If a new BG Task is to be started, any old Task menu 
will be erased and the identifier for the new BG Task is 
saved to be returned to the Executive. 

Any input request to change the current PB will be pro- 
cessed by the Parameter Block Manager. 



33 



G. MENU MANAGER 

This program is the most important part of the EG Con- 
troller. It executes on completion routine level and is 
responsible for updating the display on the HP Terminal and 
updating the valid input options. 

1 . Menu Display 

This paragraph gives a description of the display 
layout used to display menu information. There are three 
different areas on the screen. (1) The permanent buttons 
are displayed as a column at the left side of the screen. 
They will never be changed during program execution. (2) 
The bottom lines of the screen are reserved to display 
operator input related messages and warning messages. (3) 
The remaining field is used to display any menu initiated by 
the BG Controller or any BG Task. Fig. 5.2 displays the 
layout . 

When a new menu is being displayed, the menu field 
will be erased first. To erase the image on a line, the im- 
age can be overwritten with blank characters (quite slot;) or 
it can be erased up to the end of the line. The latter 
method is faster and has been implemented. This is the rea- 
son why the permanent buttons are displayed on the left side 
of the screen . 

As the permanent buttons always are displayed at the 
same locations, the operator, once familiar with the layout, 
can easily locate these buttons. 
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Print 



Figure 5.2 

HP Terminal Display Layout 
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( Message Field 





2 . 



Menu Stack 'menstk" 



The BG Controller allows the operator to have ini* 
tiated several functions at a time. Thus the Menu Manager 
has to keep track of all functions and their related menus. 
This is done using a menu stack. The top of this stack al- 
ways holds the controller menu being displayed. If a new 
controller menu is requested, it is placed on the stack and 
it will be displayed. The menu stack holds 20 menu identif- 
ier. If a stack overflow occurs, it is saved on disc in the 
menu stack file. In case of a menu stack underflow, an ex- 
isting stack from the menu stack file is retrieved. 

3 . Menu Hierarchy 

There exist three different kind of menus in the 3G 
Monitor. (1) The Initial Start Menu contains the image of 
the permanent buttons and is displayed at the program start. 
(2) The display of Controller Menus is initiated by select- 
ing a permanent button or a button of another Controller 
Menu. (3) Task Menus are initiated by BG Tasks. There ex- 
ists only one Task Menu at a time in the Menu Manager. Its 
menu identifier is stored in Mcurtm' . It is either being 
displayed or waiting to be displayed. 

The Menu Manager displays a new menu using this 
priority scheme: First any Controller Menu in the menu stack 
is selected. If there is none, any waiting Task Menu is 
considered. If there is none, the Initial Start Menu will 
be displayed again. 
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4 . 



flenu Structure 



All menus are organized in a tree structure. Each 
menu provides information about its predecessor menu and 
each of its buttons cay request a successor menu. Thus it 
is possible to always go up and down within this menu tree. 
The Menu Manager keeps track of all paths within this tree 
structure that have been selected by initiation of one or 
more functions. Actually only the menu at the bottom of a 
particular path has to be saved. A predecessor menu always 
can be determined uniquely. Its menu-id is part of the in- 
formation provided by a menu and is stored for all menus be- 
ing displayed in "ipredn^ . 

The menu stack 'menstk" saves the menu-ids of all 
menus at the bottom of a path. Thus a new menu of the same 
function just replaces the predecessor menu on top of the 
menu stack. A new menu of a different function is placed on 
top of the stack. If an active function is deactivated 
(erasing of the menu at the bottom of a path), the next menu 
in the stack will invoke that function having been active 
previously. 

This method provides the possibility for an operator 
to initiate as many functions as he wishes. This allows him 
to have several functions at intermediate steps at the same 
time. In addition, a BG Task may run and perform a variety 
of actions that do not require operator inputs. 

Many activities within a function only require the 
display of another menu. Thus a great deal of logic and de- 
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cisions is built into the menu structure. 



This permits a 



simpler program logic and shifts many changes of the BG Mon- 
itor towards an update of the menu file, which requires no 
program modification. 

5 . Functions 

Depending on the requested function and the status 
of the menu stack these related actions will follow: 

(1) Update of the laenu stack, (2) retrieval and display of 
the menu's image, (3) retrieval and storage of the input op- 
tions, and (4) update of any button enhancements. Fig. 5.3 
displays the overall program structure. 
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Manager 



Figure 5.3 

Structure of the Menu Manager 
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H. PARAMETER BLOCK MANAGER 

The actions of the FG Monitor are based on information 
stored in the Parameter Block (PB). These parameters may be 
modified by the operator independent of any BG Task running. 
The related operator interaction is processed by the Parame- 
ter Block Manager. 

The PB Manager saves all new parameters in the PB. 
After completion of the update, the PB is sent to the FG 
Monitor using the communication services provided by RT-11. 
The PB must not be sent to the FG Monitor before the whole 
update is completed. This could result in invalid interre- 
lationship between the parameters available to the FG Moni- 
tor (i.e. some parameter changes have to be done simultane- 
ously) . 

I. LOG MANAGER 

When requested all operator's inputs will be logged and 
saved in the log file. The p 1 a i n -E n g 1 i s h log text can be 
retrieved from the input option information stored in common 
data. The Log Manager sequentially writes these log texts 
onto the disc. The contents of the log file can be printed 
to trace all the operator's actions. 

K. MESSAGE MANAGER 

The Message Manager is responsible for updating the mes- 
sage field and the enhancement of the ACKNOWLEDGE button on 
the HP Terminal display. It processes requests by either 
the BG Controller or any BG Task to display or erase mes- 
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sages. These messages may be initialized by an operator's 
input or by any failure detected by the 3 G Monitor. These 
two types are handled differently. Only one operator input 
related message is expected to be existent when the Message 
Manager is called by RT-11. It is assumed that the operator 
has no chance to do another invalid input before the Message 
Manager processes the first illegal input. 

Also it is assumed that a BG Task only generates one 
warning message before the Message Manager will be called. 
This is because a BG Task executes as a mainline program. 
If it detects an error it schedules the Message Manager, a 
completion routine, at once. Thus the Message Manager will 
be called and the BG Task's execution will be interrupted. 
Warning messages generated by the BG Controller, however, 
may be generated when executing on completion routine level. 
As these completion routines do not interrupt each other, 
there may be more than one warning message to be processed 
by the Message Manager when it is called. 

1 . Input Related Messages 

W hen any program detects an illegal operator input 
it places a message text in 'inpmsg' and schedules the Mes- 
sage Manager to be executed at once. The Message Manager 
then displays this message on the related line within the 
message field on the screen. Any other input related mes- 
sage being displayed will be overwritten. Thus the message 
always responds to the last operator's input. 

Any input related message will be erased when the 
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operator does any input. The Input Manager always schedules 
the Message Manager to erase any existing input related mes- 
sage when a valid input has been nade. In case of an ille- 
gal input the old message will be overwriten by a new one. 

2 . Warning Messages 

The text of a warning message generated by a BC Task 
will be in ^ i wn s g ' . Warning messages generated by the BC 
Controller are saved in "msgw". 

If no warning message is being displayed the new 
message will be written on the screen. If there is already 
a warning message being displayed the new one will be saved 
on the message stack. In case of a stack overflow it will 
be saved on disc in the message stack file. The Message 
Manager will retrieve all stacked messages using the first- 
in first-out (FIFO) scheme. The message stack is divided 
into a lower and an upper half. A read index points to the 
next message to retrieve from the stack; a write index 
points to the next free entry in the stack. The read index 
always stays in the lower half of the stack. If only the 
lower stack half is used, the write index stays in this 
half. Else it always points to entries in the upper half. 

When the upper half is filled, it is saved in the 
Message Stack File and the write index is reset to the be- 
ginning of the upper half. When the read index reaches the 
end of the lower half, the lower half is filled either with 
a saved stack in the file or with the upper half. The read 
index is reset and in the latter case the write index points 
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to an entry in the lov/er half. Fig. 5.4 illustrates an ex- 
ample. 

Any saved warning message will cause a blinking of 
the ACKNOV, T LE DGE button. Upon selection of the ACKNOWLEDGE 
button the operator may initiate erasing of a displayed 
warning message. The Message Manager will display any other 
waiting message from the message stack or clear the message 
line on the screen. If there are no more warning messages 
waiting on the message stack the ACKNOWLEDGE button will 
stop blinking. 
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Figure 5.4 

Message Stack Illustration 




Phases: I 

II 

III 

IV 

V 

VI 



Only lower stack half in use 

Upper half has been filled and is written 

on disc; write will continue 

lower half is read; read will continue 

stack half is retrieved from disc; 

read will continue 

lower half has been read; read will continue 
Upper half has been moved into lower half 



Legend: © - Sequence of message blocks 

R - Read index; W - Write index 
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VI . 



BACKGROUND TASKS 



A. INTRODUCTION 

A 3G Task per for ns a group of related functions. It ex- 
ecutes as a BG mainline program. The BG Tasks are indepen- 
dent of each other and only one will be executed at a time. 
Thus the overlay structure of RT-11 is used. When linking 
the BG Monitor all BG Tasks will be assigned to the same 
memory area. When a certain BG Task is called by the Execu- 
tive it will be loaded if not already in memory. 

E. BACKGROUND TASK STRUCTURE 

After a EG Task has been started it will execute in- 
dependently of other BG Controller functions. Only if the 
BG Task needs some operator input to proceed it will call 
the Control I/O Manager. Also it may schedule the call of 
the Message Manager to display or erase a message. 

The operator has the option to start a new BG Task while 
another is executing. Thus the old one has to be killed. 
The Executive will set a common data unit, the "K I L L - f 1 a g " , 
which indicates that the running BG Task is to be killed. 

To recognize this condition the BG Task has to check 
this flag. Thus the design of a BG Task has to be done in 
such a way that the control path always passes certain check 
points to examine the KILL flag. When the KILL condition is 
recognized the BG Task must not initialize any new I/O or 
schedule any other program. It returns control to the Exe- 
cutive after all initialized I/O has been completed. A p - 
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a specific 



propria tely the KILL condition is checked after 
sub-function has been completed or while waiting for I/O 
completion . 



46 



VII . 



SUPPORT SOFTWARE 



A. INTRODUCTION 

Most of the BG Monitor's actions are determined by the 
contents of the menu file. This file contains all informa- 
tion to create an image on the HP Terminal and to process 
the operator's inputs from keyboard or Touch Input System. 
It is generated and updated using Support Software that ex- 
cutes under the control of UNIX. 

One program updates the Menu File, it is called Menu Ed- 
itor. Another program, the Menu Checker, is used to verify 
any modifications of the menu file. 

B. MENU EDITOR 

1 . Introduction 

The Menu Editor processes fixed format input and up- 
dates the menu file. To simplify the menu generation the 
user does not have to specify the exact locations of text or 
displayed buttons on the screen; the Menu Editor will per- 
form all necessary arrangements of the image. 

The Menu Editor needs three files which have to ex- 
ist in the UNIX file system: 

- menu file, 

- intermediate menu file, 

- input file. 

The input for the Menu Editor can not be taken from 
a standard input device because the program reads over the 
input file twice. The first time all requested information 



will be extracted to compute the image size, to get the 
referenced menu names, to update the menu file directory, 
and to provide the Menu Editor with sufficient knowledge to 
arrange the created image. During the second read over the 
input file a new or updated menu will be the result. 

The following terminology will be used in the furth- 
er presentation: 

- image: the complete image of the HP 

Te rminal 

- image block: a subset of the image; it is 

one block of text or it is a 
question with its responses 

- response: subset of a question block; 

it is a key or a displayed 
button 

- predecessor menu: a menu which preceeds some 

other menu in the display 
sequence 

- successor menu: a menu which succeeds some 

other menu in the display 
sequence 

The Menu Editor Manual in the appendix will give 
sufficient information about how to use the program. 

2 . Files 

The Menu File contains a Menu File Directory and the 
menus. Its records have a fixed length of 544 bytes. The 
directory uses 20 records with 45 entries each. For a menu, 
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6 records are needed to store the maximum possible amount of 
information. Because UNIX does not provide direct access 

i 

I/O in FORTRAN, the Menu File has to be read sequentially. 
The UNIX I/O system does not write leading or trailing ASCII 
NUL characters. Therefore it is crucial that the bytes 1 
and 542 of a record do not contain such a character. Anoth- 
er constraint by UNIX prohibits more then fifteen open re- 
quests for files. Thus a record that is located between the 
beginning of a file and the read pointer can only be ac- 
cessed by closing and reopening the file. This is the only 
way to reset the file's pointers. This procedure easily 
exceeds the maximum number of file open requests. Therefore 
a Temporary Menu File, 'menuout', is used. 

There are two reads over the Menu File. The first 
time the locations of referenced menus in the menu file are 
extracted. Also the directory is updated and the new version 
is copied to the Temporary Menu File. The second time all 
unchanged menu records are copied and updated records are 
written to the Temporary Menu File. Finally the whole Tem- 
porary Menu File is copied to the Menu File. 

When creating the menu records each question or text 
section is considered to be an image block. Such a block 
will always have the same structure depending on the input. 
Text simply will be copied in the demanded form. The image 
commands for a question will be computed depending on the 
location of the buttons, their size, and their number. When 
the number of required lines on the screen is determined the 
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whole image will be rearranged by separating the blocks with 
available blank lines. 

3 . Functions 

The Menu Editor will perform several functions which 
all update the menu file directory and modify menu records. 

a. Initial Start Menu 

The first menu that has to be created is the In- 
itial Start Menu. This function initializes the Menu File 
and creates entries in the directory for all initial menus, 
like Initial Status Menu, Initial Select Menu, and so on. 
The 3 G Monitor expects these menus at fixed record loca- 
tions* 

The records of the Initial Start Menu are creat- 
ed. The image records will contain the command for the HP 
Terminal to (1) draw all permanent buttons on the screen, 
and (2) to clear the rest of the screen. Also the informa- 
tion about possible input options is stored. 

b. Create a Menu 

This function is used to create a new menu. The 
first empty entry in the menu directory will be filled with 
the new menu name and the number of its first record. If 
the menu's predecessor menu is not yet existent a new entry 
will be generated for it. If the menu has any successor 
menus their entries will be searched in the directory; if 
they are not yet existent new entries will be generated. 
After the directory has been updated, the HP Terminal com- 
mands and information about possible inputs will be computed 



50 



and stored in the menu records* 



c. Update a Menu 

This function is only allowed if the referenced 
menu is already in the Menu File. Its location is retrieved 
from the menu directory and the menu records are generated 
the same way as with menu creation. 

d. Delete a Menu 

This function simply searches the referenced 
menu's entry in the raenu directory and deletes it. A menu 
to be deleted nay have successor menus. The user has to 
delete any successor menus if they are no longer needed. 
The predecessor menu has to be updated as well. 

C. MENU CHECKER 

1 . Introduction 

This program allows verification of any modifica- 
tions of the Menu File. It extracts the contents of the 
menu directory and the menu records. The function requests 
are taken from the standard input device. Output is done at 
the standard output device. 

The Menu Checker Manual in the appendix will give 
sufficient information about how to use the program. Also 
examples of possible outputs are shown following the appen- 
dices. 

2 . Functions 

The following functions nay be selected by the user: 
- Directory: All entries of the Menu File 

directory will be extracted 
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Input options: All information about possible 

input options of a specified 
menu will be extracted 

Inage: The HP Terminal commands that 

create the image will be 
extracted 
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VIII. 



BACKGROUND MONITOR FILES 



A. INTRODUCTION 

The BG Monitor uses several files for different pur- 
poses. A Menu File contains all information to control the 
operator interaction and resulting actions. Two temporary 
files, the Menu Stack File and the Mesage Stack File are 
used to save any overflown stacks. A Log File will contain 
plain -English input commands done by the operator. 

B. MENU FILE 

This file is created using the Menu Editor. Its mode is 
direct access and its form is unformatted. All information 
is represented in ASCII characters. Integers are converted 
into a 2 character ASCII code using the following mapping: 
Upper byte = integer/30 + 40 
Lower byte = integer modulo 30 + 40 

The file has fixed length records of 544 bytes each. A 
menu occupies 6 records to store its information . To store 
the directory 20 records with 45 entries each are used. 
Each entry contains a menu name and the location of its 
first data record. The menu name is represented in 10 ASCII 
characters. The pointer to a menu's first data record is a 
3 digit integer. There exists a one-to-one napping between 
the location of a directory entry and the location of the 
menu records. The folio wing parameters are used: 

- i: location of the first menu record behind the 

directory 
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j: location of the directory record 



- k : pointer to entry in the directory 

The menu's first data record number is determined by 
record number = i + (45*(j-l) + k-l)*6. 

The coded record number is only used by the Menu Editor. 
The BG Controller does not have to access the directory at 
all* References to a menu by another one is provided by its 
record number to decrease the number of necessary file 
accesses . 

The first 4 records of a menu are used to store the HP 
terminal commands which will create an image on the display. 
Subsets of a command string are separated by an ASCII ' $ ' . 
The end of data in an image record is indicated by an ASCII 
'I'. The last used image record has an ASCII ' ~ ' in byte 
540. These three ASCII characters therefor must not be used 
in any image text. 

The last two records contain information about possible 
operator inputs as well as a parameter block. A record is 
partitioned into 30 byte sections, thus providing entries 
for 18 input options. These are the data stored for each 
possible input : 

- word 1: Legend of the button or the key 

(ASCII character in lov/er byte) 



- word 

t o 

- word 

- word 



2 

6: p la i n-E n g 1 i s h log command (10 characters) 

7: left boundary of a button 

8: lower boundary of a button 
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word 9 : 



right boundary of a button 



- word 10: upper boundary of a button 

- word 11: action code; it determines the 

reaction of the BG Monitor 

- word 12 

to 15: used for any additional information 

(e.g. BG Task identifier) 

A parameter block informs the Menu Manager about some 
additional menu parameters. The predecessor's menu-id is 
stored. The number of possible input options is given. Al- 
so the type of the menu (e.g. Status menu) can be retrieved 
from this parameter block. Word 15 of this block contains 
the ASCII characters The parameter block is located 

in the 36th entry for the Initial Start Menu. For all other 
menus it is located in the 29th entry. Fig. S.l will 
display the file layout. 
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Figure 8.1 
Menu File Layout 
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C. MENU STACK FILE 

This file is used to intermediately save any menu 
stacks. It is a direct access, unformatted file. One stack 
consists of 40 bytes to store 20 menu-ids. Stacks are writ- 
ten to the file and read in a Last-out First-in scheme. 

D. MESSAGE STACK FILE 

This direct access file saves any overflown message 
stacks in unformatted form. A message stack has a size of 
120 bytes. The scheme to save and retrieve these stacks is 
First-out First-in. 

E. LOG FILE 

When logging of all operator input commands is requested 
the Log Manager writes p la in-Eng 1 i sh commands to this file. 
It is accessed sequentially and is formatted. Each conmand 
exists of 10 ASCII characters and the contents of this file 
can be listed to trace all operator actions. 
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IX. 



CONCLUSIONS 



The software for the Background (BG) Monitor docunented 
in this thesis has been developed and tested successfully. 

The data in the Menu File causes specific actions to be 
taken by the BG Monitor when an operator^ input is pro- 
cessed. Thus the execution of the BG Monitor is to a large 
extent controlled by the contents of the Menu File. This 
control, imbedded in the data, decreased the size of the BG 
Controller and allowed a general program structure which is 
very flexible. Many changes of a BG Monitor's function can 
be implemented by just updating the Menu File. Thus no pro- 
gram modifications are necessary. 

Extensions of a certain function or addition of new 
functions without changing the structure of the BG Monitor 
are possible. This can be done simply by adding new menus 
to the Menu File and by installing a new BG Task. This only 
requires minor changes in the Executive (to call the BG 
Task) and creation of new menus in the Menu File. A BG Task 
can be developed and tested separately from the existent BG 
Monitor. 

Further software modifications are possible. The menu 
record size (now 544 bytes) could be reduced to 512 bytes 
(standard physical record size on a disc). This would in- 
crease the speed of data transfer by approximately 100 mil- 
liseconds. The new size would be sufficient to store all 
information about a specific menu. 
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Certain I/O problems with the operating systems caused a 
considerable delay in the software development* UNIX only 
allows fifteen requests to open files from FORTRAN programs* 
This restriction is not documented in the UNIX manuals* To 
cope with this problem, the form of some file operations had 
to be changed. 



A software 


error 


related 


to I/O 


within 


completion 


rout ines was 


detected 


in RT-11. 


A patch 


received from 


the 


Digital Equipment Corporation was 


implemented in 


RT-11 


and 


resolved this 


problem. 


Source 


code for 


this 


patch is 


in- 


eluded with the 


program 


listing section of 


this 


thesis . 
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APPENDIX A 



SUMMARY OF SOFTWARE AND DOCUMENTATION 

This summary lists the existing programs and manuals 
which have been written during the software development. 



- EG Monitor, consisting of the BG Controller 
and EG Tasks 

- Menu Editor 

- Menu Checker 

- Manual for the Menu Editor 

- Manual for the Menu Checker. 
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APPENDIX B 



MENU EDITOR MANUAL 

A . INTRODUCTION 

The Menu Editor is a program that executes under the 
operating system UNIX. It is used to create, update, or 
delete menus in the Menu File used by the BG Monitor of the 
SATCOM Signal Analyzer. The RATFOR source program is stored 
in the file ^menued.r". The executable program is saved in 
the file ^menued". The Menu Editor will execute using the 
command : 

menue d 

B. FILES 

The Menu Editor requires three different files that have 
to exist in the UNIX file system. These are their 
filenames: 

- 'nenufile^ : This is the Menu File that will be used 

by the BG Monitor. 

- ^nenuout" : This is a temporary menu file used to 

store intermediate data. 

- 'infile' : This file contains all user specified 

input to modify the Menu File. 

All files will be accesses sequentially, the contents is 
coded in ASCII. 

1. File 'menufile" 

If the file initially is not yet existent, it has to 
be created using the UNIX Editor "ned". Any dunny input may 
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be stored in the file. 



The structure of "menufile" will be 



determined by the Menu Editor when it is accessed the first 
t ine • 

The file consists of 5 4 4 bytes records. Each record 
stores valid information within the first 540 bytes. The 
last four bytes will contain the ASCII characters 0, 0, CR , 
LF. The Menu Editor will write records with a length of 542 
bytes. UNIX will add CR/LF, thus creating a record of 544 
bytes . 

The first 20 records will contain the Menu File 
directory. Each directory record allows 45 entries. An en- 
try contains a menu name (10 ASCII characters) and a pointer 
to the first data record of that menu. The initial directo- 
ry will be set up when executing the function 'Create Ini- 
tial Start Menu". 

For each menu 6 records will be used. The first 
four records contain the commands to create an image on the 
HP Terminal display. Subsets of command strings are 
separated by ASCII " $ " . The end of usable image commands on 
a record is indicated by an ASCII "I". The last used image 
record will contain an ASCII in byte 540. These three 
ASCII characters must not be used in any raenu's image text. 

Two additional records provide information about 
possible operator inputs in reaction to the display of this 
menu. These records are partitioned into 30 bytes sections, 
thus providing entries for 18 input options each. The in- 
formation stored for each input option will be 
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- Label of a button or key 

- plain-English log command 

- boundaries of a displayed button 

(lines and columns) 

- an action code to determine the 

BG Monitor^ action 

- additional information that may be requested 

A parameter block within these records will contain addi- 
tional information about some menu parameters. It stores 
(I) the predecessor's menu-id, (2) the menu's type ( e . g . 
Status Menu), and (3) the number of possible input options. 
Word 15 of this entry will contain the ASCII characters 
The parameter block is located in the 36th entry for 
the Initial Start Menu. For all other menus it is located 
in the 29th entry. 

2. File 'menuout' 

If this file does not yet exist in the UNIX file 
system, it has to be created using the UNIX Editor ' n e d ' . 
It may contain any data. This file will have exactly the 
same structure as the Menu File. It is used to copy un- 
changed records from 'menufile' and to add updated records. 
When the Menu Editor has completed its requested function, 
it copies the contents of 'menuout' to the Menu File 

3. File 'infile' 

This file will provide all information necessary to 
run the Menu Editor. The file is to be created using the 
UNIX Editor 'ned'. The following terminology will be used 
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in this manual: 



- predecessor menu: a menu which preceeds sene 

other menu in the display 
sequence ; 

- successor menu: a menu which succeeds some 

other menu in the display 
sequence ; 

- image: the image on the HP Terminal 

display created by the menu 

- image block: a subset of the image; it is 

one block of text or it is a 
question with its responses; 

- response: subset of a question block; 

it is a key or a displayed 
button; 

All integer inputs have to be ended with ' , ' . Character in- 
puts have to be ended with ' 0 ' . A line of text is to be 
ended either by | (if it is not the last text line) or by 

'0'. Comments are allowed on each line following these end- 
ing symbols . 

a- Format of 'infile' 

The input format is given below, A number in 
parentheses indicates the line number in 'infile'. 
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for 


all functions... 


(1) 


: 


function code 


for 


delete, create, update.. 


(2) 


: 


menu name 


for 


create, update . . . 


(3) 




predecessor menu name 


(4) 




menu type 


(5) 




menu title 


(6) 




number of image blocks 



for each inage block... 

: start-block code (126) 

: number of responses 

: location of buttons 

: size of buttons 

: text lines 

for each response... 

: start response code (127) 

: label of button 

: log command 

: ac t ion code 

: annex 

b. Contents of "infile' 

This section will specify which values are valid 
for all possible inputs, 
function code : 

1 - DELETE an existing menu 

2 - CREATE a new menu 
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3 



UPDATE an existing menu 



8 - CREATE INITIAL START menu 
menu names, log command: 

10 characters 
menu t y pe : 



1 - 


INITIAL START menu 


2 - 


STATUS menus 


3 - 


SELECT menus 


4 - 


HELP menus 


5 - 


CONTROL menus 


6 - 


B G TASK menus 



menu title: 

text for first line on top of menu image 
location of buttons: 



i - 


button row below the text 


2 - 


button row beside the text 


3 - 


button column beside the text 


size of 


buttons : 



number of lines the button will cover 
text : 

one or more lines of text 
label: 

1 character 
action code : 



i - 


display a new menu 


3 - 


return an integer 


4 - 


return a character 
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5 - display the previous nenu 

7 - HARDCOPY CRT1 

8 - HARDCOPY CRT2 

9 - ACKNOWLEDGE 

10- STATUS 

11- SELECT 

12- HELP 

13- CONTROL 

14- New BG Task 

15- Change Parameter Elock 
annex : 

action code 1: menu name 

action code 3: integer 

action code 4: character 

action code 14: BG Task identifier 



c . Example 

This section will give an example of how the 



'infile' might look like. This input causes the Ilenu Editor 
to create a new menu which has one question block with two 
responses and a pure text block. 



2 



create a new menu 



t es tmenu @ 



name of the new menu 



start menu @ 



predecessor menu 
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menu type: Task menu 



first Task men uC 



text of title on top line 



2 



2 image blocks 



126 



start-code for first block 
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2 , 



2 responses 



3, button colunn beside text 

3, button size 3 lines 

This is the text of the question) 1st line 

If you want to continue touch 'Y ' \ 2nd line 
else touch button " N * @ 3rd line 



127, 




start-code 1st response 


N0 




label of button 


No 


0 


log command 


3, 




action: return integer 


o 

CM 




integer to return 


127, 




start-code 2nd response 


Y0 




Label of button 


Yes 


0 


Log command 


1, 




action: display new menu 


nextmenu 


0 


menu name 


126, 




start-code 2nd block 


0, 




no responses 


o, 




no but tons 


o, 




no button size 


Th i s is 


a pure text 


block | 


It just 


gives some 


information and has| 



no input options^ 
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c. SEQUENCE OF MENU GENERATION 

The initial SG Controller menus have to be located in 
fixed Menu File records. This is requested because the DC 
Controller of the S5A has to find these menus. These are 
the associated menu records: 

1) INITIAL START menu -- 21 

2) initial STATUS menu -- 27 

3) initial SELECT menu -- 33 

4) initial HELP menu -- 39 

5) initial CONTROL menu — 45 

To guarantee this sequence the INITIAL START menu has to be 
generated first. The Menu Editor then will set up the Menu 
File directory, create the initial start menu, and place the 
other initial 3 G Controller menus into the directory. The 

implementation of these menus then has to be done using the 
UPDATE function. 

D. FUNCTIONS 

1. CREATE INITIAL START menu 

This is the very first function the Menu Editor has 
to process. It will build the Menu File directory and place 
the entries of all initial menus into the directory. The 
menu records for the INITIAL START menu will be created and 
stored following the directory. 

2. CREATE a menu 

The Menu Editor searches the menu direcory and uses 
the first empty entry to store the menu's name and pointer 
to its records. If the nenu's predecessor menu is not yet 
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existent its name and computed pointer will be placed into 



the directory. If the menu has any successor menus, they 
will be searched in the directory, if they are not yet 
created, new entries for them will be generated. 

After updating the directory and extracting needed 
data from it the image commands and information about possi- 
ble input options will be generated and stored in the menu's 
records . 

3. UPDATE a menu 

To process this function, the referenced menu has to 
be in the 'menufile'. Essentially the further processing is 
the sane as with the CREATE function. 

4. DELETE a menu 

The menu's entry is searched in the menu directory. 
Then the menu's name will be deleted. A deleted menu may be 
a predecessor or successor of other menus. The user has to 
update any other menus that are affected by the deletion. 

E. MENU CHECKER 

There exists a program 'MENU CHECKER' that allows to 
verify any modification of the 'menufile'. It has the fol- 
lowing functions: 

- DIRECTORY: Extract all entries from the 

Menu File directory 

- INPUT OPTIONS: Extract all information about 

possible input options for a 
specific menu 

- IMAGE: Extract the image generating 
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commands for a specific menu 



For further information refer to the MENU CHECKER MANUAL. 
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APPENDIX C 



ME MU CHECKER MANUAL 



A. INTRODUCTION 

The Menu Checker allows to verify the contents of the 
Menu File. This program executes under the operating system 
UNIX and exists as an executable file. The file "ncheck.r' 
stores its source code. The Menu Checker will execute using 
the command : 

me he c k 

It offers the following functions to extract data from 
'menuf i le ^ : 

- DIRECTORY: Extract all entries from the 

Menu File directory 

- INPUT OPTIONS: Extract all information about 

possible input options for a 
specific menu 

- IMAGE: Extract the image generating 

commands for a specific menu 

The Menu Checker needs to have access to the ^menuf ile^ . 
Input is taken from the standard input device, output is 
directed to the standard output device. Non-printing ASCII 
characters of the image commands (e.g. Escape) will not ap- 
pear in the output. 

E. INPUT FORMAT 

The input to control the Menu Checker consists of one or 
two parameters. An integer has to be ended with an ~ and 
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a 10-character menu name has to be ended with ' Q ' . The fol- 
lowing example shows the input format and valid parameters. 
The input sequence is indicated by the numbers in 
parentheses : 

(1) : function code 

5 - directory 

6 - image 

7 - inpu t options 

(2) : menu name for functions 6,7 

example : 

6, extract image commands 

startmenu 0 from startmenu 
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SAMPLE OUTPUTS OF THE MENU CHECKER 



These are the directory records 



record number: 1 



s tar tmenu 


21 


s t a t u s 0 


27 


s e 1 e c 1 0 


33 


helpO 


39 


controlO 


45 


s t a t u s 1 


51 


task 1 


57 


0000000000 


0 


0000000000 


0 


0000000000 


0 


ooocoooooo 


0 


0000000000 


0 


0000000000 


0 


0000000000 


0 


oooooocooo 


0 


0000000000 


0 


0000000000 


n 


oooooooooo 


0 


0000000000 


0 


0000000000 


0 


0000000000 


0 


0000000000 


0 


0000000000 


0 


oooooooooo 


0 


0000000000 


0 


0000000000 


0 


oooooocooo 


0 


0000000000 


0 


0000000000 


0 


oooooooooo 


0 


0000000000 


0 


0000000000 


0 


oooooooooo 


0 


0000000000 


0 


0000000000 


0 


oooooooooo 


0 


0000000000 


0 


0000000000 


0 


oooooooooo 


0 


0000000000 


0 


0000000000 


0 


oooooooooo 


0 


0000000000 


0 


0000000000 


0 


oooooooooo 


0 



record number : 2 

There are no entries 

record number: 3 

There are no entries 

record number: 4 

There are no entries 

record number: 5 

There are no entries 

record number: 6 

There are no entries 

record number: 7 

There are no entries 

record number: 3 

There are no entries 

record number: ? 

There are no entries 

record number: 10 

There are no entries 

record number: 11 
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There are no entries 



record nun her: 12 

There are no entries 

record number: 13 

There are no entries 

record number : 14 

There are no entries 

record number: 15 

There are no entries 

record number: 16 

There are no entries 

record number: 17 

There are no entries 

record number : 18 

There are no entries 

record number: IS 

There are no entries 

record number: 20 

There are no entries 
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Image conmand s : 



a 07C&a01Ca01r01CdJdG 

a02r01CdJd(? 

a03r0ICd JdO 

a 02r02CPR 1 

a O7C&aOlCaO5rClCdJd0 

a06 r 0 1 Cd J dG 

a 07 rOlCd JdG 

a06r02C PR 2 

a O7C&aOlCaO9r01CdJdG 

alOrOlCd JdG 

a 1 1 rOlCd JdG 

al0r02C STAT 

a07C&a01Ca 13r01CdJdG 

al4r01Cd JdG 

al5r01CdJdG 

a 14 r02CCTRL 

aO 7C & a 0 1 Ca 17r01Cd JdG 

alSrOlCdJdG 

al9r01CdJdG 

al8r02CSEL 

a07C&a01Ca21r01CdJdG 
a22r01Cd JdG 

a23r01CdJdGa22r02CHELP 
al6C&alOCa21rlOCdJdG 
a22rlOCd JdG 
a23rlOCd JdGa22 rl 1CACK 
aOlrl 2C 



76 



Input options for menu: start menu 

first record: 21 

number of input options: 7 

menu type: l 

predecessor menu: 00000C0C00 



input option 1 
label: P 

log command: PRINT CRT1 

button left collumn: 1 

button right collumn: 6 

button upper row: 1 

button lower row: 3 

action code: 7 



input option 2 
label : 0 

log command: PRINT CRT2 

button left collumn: 1 

button right collumn: 6 

button upper row: 5 

button lower row: 7 

action code: 8 



inpu t option 3 
label : A 

log command: ACKNOWLEDG 

button left collumn: 10 

button right collumn: 15 

button upper row: 21 

button lower row: 23 

action code: 9 



input option 4 
label: S 

log command: STATUS 

button left collumn: 1 

button right collumn: 6 

button upper row: 9 

button lower row: 11 

action code: 10 



input option 5 
label: E 

log command: SELECT 

button left collumn: 1 

button right collumn: 6 

button upper row: 17 
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button lower row: 19 

action code : 11 



input 


option 


6 


label: 


H 




log command : 


HELP 


button 


left 


collunn: 


button 


right 


coll un n 


button 


upper 


r ow : 21 


button 


lower 


r ow : 23 


action 


code: 


12 



input 


option 


7 


label: 


C 




log command : 


CONTROL 


button 


left 


collunn: 


button 


right 


collunn 


button 


upper 


row: 13 


button 


lower 


r o w : 15 


action 


code: 


13 



BACKGROUND CONTROLLER PROGRAM 



r 

t 

a 

t 

r 

u*********** **************** **************************** ************** 

If********************************************************************* 

it * 

it BACKGROUND CONTROLLER 

it * 

ft********************************************************************* 

ft********************************************************************* 

it 

it This program is the resident part of the Background Monitor 

it running under RT-11. 

Additional Background Tasks are stored on a memory image file. 
it When a call is made to such a Task, the RT-11 overlay handler 

it reads it from the memory image file into the specified overlay 

it region. 

it 

it The Background (BG) Controller has the following components: 

it - EXECUTIVE 

it This is the Main Program of the BG Controller. It is called by 

it RT-11 to start the execution of the BG Monitor. 



- CONTROL I/O MANAGER 

This program is called by either the EXECUTIVE or any Task 
to process an operator input request from the operator 
keyboard or the touch panel. 

Control is returned after a requested input has been received 
from the operator. 

- INPUT MANAGER 

This program is called initially from the Executive and then 
re-schedules itself periodically. 

It processes all operator inputs from either the keyboard 

- CONTROL COMMAND MANAGER 

This program processes all operator inputs not requested by 

a BG Task. 

or the touch panel. 

- MENU MANAGER 

This program is responsible for updating the display on the 
operator's console and for providing the other parts of the 
BG Controller with sufficient information of any possible 
inputs . 

The required information will be stored on a separate 
menu-file . 

- LOG MANAGER 
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This program logs plain-English commands, numbers, and text 
on a requested output device. 

- PARAMETER BLOCK MANAGER 

This program updates the current Parameter Block, saves it 
on disc, and transfers it to the Foreground Monitor. 

- MESSAGE MANAGER 

This program manages the displaying and erasing of any 
operator input related messages or h/w warning messages. 

a************************************************************ ******** 



****** * ***** * ** * ************ * *************************************** * 

* 

0. EXECUTIVE 

* 

It******************************************************************** 



Initial Release — hn/23 Aug 79 
NAME: 

bgexec 

FUNCTION: 

Main program of the BG Controller 
The EXECUTIVE provides common routines for 
the EG Controller 
CALLING PROGRAM: 

Operating System RT-11 

NOTES : 

This program does not return control to the calling program. 
ALGORITHM: 

bgexec : 

open all files used by the Controller 
call all completion routines 
initialize HP Terminal Display 
initialize Carroll Touch Input System 
and save them for future use 
do forever 

{ get next task to call from CONTROL I/O MGR; 
call next task; 

> 








// parameter 


for menu table declarations 


ef ine 


INMAX 


36 


it max input options per menu 
it (including control inputs) 


ef ine 


OPTL 


15 


it storage length per input option 






it 


** TBLMAX = INMAX * OPTL 






it 


** TBLMAX >= 2*1 1RL 


ef ine 


CON MAX 


7 


it max number of permanent 



80 



if control input 



.ef ine 


TBLMAX 


540 


if max length of menu table 


ief ine 


IMAGEX 


270 


if index in nentbl where the 
it temporary image storage starts 






it 


** I HAG EX = TBLMAX / 2 


let ine 


TEXTL 


40 


it max word length of text input 


!ef ine 


TNL 


10 


if max word length of task name 


ief ine 


MSGL 


56 


it max word length of displayed message 


ief ine 


MSGWL 


140 


if word length of array msgw 


lef ine 


ENDOFM 


126 


it code for end-of-message used in 
it array msgw and msgstk 


ief ine 


ENDOFI 


124 


it end-of-input code 
it used in menu records 


define 


EKDOFR 


126 


it end-of -record code to indicate 








it that a physical record is the last 
it one of a logical menu record • 




it word 


length 


of TT display buffer 


define 


TTBUFL 


80 


it 80 characters 


define 


INTTL 


20 


it input buffer length from TT 




if Input 


parameter for subroutine errmsg 


define 


INI! 


i 


It store input related message 


define 


WM 


2 


it store warning message 




if Logical unit number definitions 


define 


LUMSG 


10 


it Message-stack file 


define 


LUMSTK 


11 


it Menu-stack file 


define 


LUMENU 


12 


it Menu file 


define 


LUTTD 


13 


it Touch Terminal Display 


define 


LUTSYS 


14 


it Touch System 


define 


LULOC 


15 


it Command Log File 


def ine 


OUT 


6 


it test output 




if length of physical menu records 


define 


URL 


2/0 


it word length of physical record 


define 


MRBL 


540 


it byte length of physical record 




if hax number 


of records used by one menu 


define 


IMGREC 


4 


it Max number for image 


define 


OPTP.EC 


2 


it Max number for input options 




it Stack 


size 


parameter 


define 


HENSTX 


20 


it Max menu stack size 


define 


MG STL 1 


120 


it Max warning message 
it stack size 


define 


MG STL 2 


60 


it half message stack size 








it MG STL 2 = KGSTL1 / 2 




it Input 


parameter definitions for MEMU MGR 


def ine 


DIMEM 


i 


if display initial start r.enu 


define 


DSMEN 


2 


if display status r.enu 
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! 



ef ine 


DSEMN 


3 


it display select menu 


lef ine 


DHhEN 


4 


it display help menu 


lief ine 


DCMEN 


5 


if display control menu 


lef ine 


DTMEN 


6 


it display task menu 


lef ine 


ECMEN 


7 


it erase controller menu 


lef ine 


ETMEN 


8 


it erase task menu 




// Input 


parameter definitions for MESSAGE MGR 


lef ine 


EINPUT 


9 


it Erase input related msg 


lef ine 


EWARN 


10 


it Erase warning msg 


lef ine 


DINPUT 


11 


it Display input rel. msg 


lef ine 


dwarn 


12 


it Display warning msg from cont 


lef ine 


D WAR NT 


13 


it Display warning msg from task 




if Action codes from nenu file 




it These 


nust 


not be changed 


define 


ACODEM 


1 


if display new menu 


define 


ACODET 


2 


it return text buffer 


define 


ACCDEN 


3 


it return integer 


define 


ACODEC 


4 


it return character 


define 


ACODEP 


5 


it display previous menu 


define 


ACODPI 


7 


it PRINT CRT 1 


def ine 


AC0DP2 


8 


it PRINT CRT 2 


define 


ACODAC 


9 


it ACKNOWLEDGE 


define 


ACODST 


10 


it STATUS 


define 


ACODSE 


11 


it SELECT 


define 


ACODHP 


12 


it HELP 


define 


ACODCN 


13 


it CONTROL 


define 


ACODTK 


14 


it New EG Task 


define 


ACODPB 


15 


it change PB 




it Input 


parameter definitions for common 




it subroutine 


enhanc 


define 


REV 


i 


it Reverse button 


define 


KLKBEG 


2 


it Start blinking 


define 


BLKEND 


3 


it Stop blinking 


define 


REVEND 


4 


it stop reverse button 




it Symbolic menu type definitions 




it These 


must 


not be changed 


define 


START 


1 


it Start menu being displayed 


define 


STATUS 


2 


it Status menu being displayed 


def ine 


SELECT 


3 


it Select menu 


def ine 


HELP 


4 


it Help menu 


define 


CONTROL 


5 


it Control menu 


define 


TASK 


6 


it BG Task menu 




it Symbolic indices for inopt word locations 


define 


KEY 


1 


it keyboard entry code 


define 


PLAIN 


2 


it Plain-English command 


define 


LX 


7 


it Lower left x-coordinate 


define 


LY 


8 


it Lov;er left y-coordinate 


def ine 


RX 


9 


it Upper right x-coordinate 


define 


LY 


10 


it Upper right y-coordinate 
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! 



ef ine 


CODE 


11 


it 


Action code 


ef ine 


ANNEX 


12 


it 


Additional info 




if Symbolic 


parameter values 


ef ine 


OK 


1 






ef ine 


iiUTOK 


0 






ef ine 


DOME 


1 






ef ine 


KODONE 


0 








if Symbolic 


names ] 


for flags and parameters 


ef ine 


KILL 


1 


it 


killfl 


ef ine 


NOKILL 


0 


it 


killfl 


ef ine 


MENU 


1 


it 


input control i/o mgr 


ef ine 


NOMENU 


0 


it 


input control i/o mgr 


ef ine 


NOACTN 


0 


it 


input completion routines 


lef ine 


ACTION 


1 


it 


input input ngr 


lef ine 


ACCEPT 


1 


it 


inflag 


lef ine 


NOACPT 


0 


it 


inflag 




if Symbolic 


cursor 


coordinates 


ief ine 


MIX 


21 


it 


start x of first message 


lef ine 


MIY 


21 


it 


start y of first message 


lef ine 


M2X 


21 


Jl 

it 


start x of second message 


lef ine 


M2Y 


22 


it 


start y of second message 




it ASCCI 


constant for initializing HP Touch System 


define 


UNC 


94 


it 


Uncover code 


define 


STP 


92 


it 


Stop code 


define 


CON 


128 


it 


Control code 


if Mote: This must not 


be 0, an unused bit is used (=1 ) 



if If it were 0, it would be truncated as trailing KUL 



if The raenu table is used in the following way: 
if - temporary storage for the image records 
if using the upper half of mentbl 
if (start at mentbl(IMAGEX) ) 

if - input options for permanent displayed "'buttons' 
if at the top, and input options for non-permanent 
if 'buttons' 

if A program that accesses the input options, declares 
if an array inopt (OPTL, INMAX) and equivalences it with 
if the connon array mentbl. 
if integer*2 inopt (OPTL , INMAX) ; 

if equivalence (mentbl (1), inopt(l,l)); 

if Menu Table declaration, number of input options 
common /b 11c 1 /mentbl (TBLMAX) , nuropt ; 

if Operator input storage declarations 

if text , number , character , pointer for text buffer 
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onmon /blk2/intext (TEXTL) , innunb, inchar, intxtp ; 

it Storage for menu-id's to be erased or 
it to be displayed, initiated by the controller 
onnon /blk3/iecnen, icmenu ; 

it Storage for menu-id's to be erased or 
it to be displayed, initiated by a task 
onnon /blk4/ietmen, i tmenu; 

it Storage for operator input related messages 
it and warning messages from tasks 
ogical*l inpmsg(MSGL) , iwmsg(MSGL) ; 

:omnon /blk5/inpmsg, iwr.sg; 

it Storage for 

it warning messages from 3C- Controller, 
it read and write pointer for irsgw 
Logical*! msgw(MSGWL) ; 
zonnon /blk6/msgw,insgwpr ,msgwpw; 

it Menu stack, stack pointer, number of saved menu stacks 
:onmon /blk7/menstk (MENSTX) , raenstp, menstn; 

it Message stack, stack read and write pointer 
Logical*! msgstk(MGSTLl) ; 
zommon /blkS/msgs tk , msgstr, msgstw; 

it Menu record nunber of current menu's predecessor, 
it menu record nunber of current or saved task menu , 
it name of active BG Task (if any), 
it and current menu's type 
zommon /blk9/ipredn, icurtm, iactsk(TNL) , nentyp ; 

it KILL flag (1: Kill current BG Task) 
it INPUT flag (0: accept no input; 1: accept input) 
zommon /blklO /killf 1, inflag; 

it record numbers of initial menus known 
it to the EG Controller 

it l)Status, 2)Select, 3)lielp, 4)Control 5)Start 
zommon /blk! 1 /ins tat , insel, inhelp, incont, instrt; 

it number of warning messages to be displayed 
it index to warning message stack half to write into 
it first message stack record nunber on disc file 
it last message stack record number on disc file 
zommon /blk!2/msgcnt , ngstsw, mfrec, mlrec; 

it Input buffer from TT with pointer 
it flag for having done the input from operator 
common /blk! 3/int t (INTTL ) , inttp, indone; 
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it Index of permanent button (in inopt) 
it that is displayed in reverse code 
common /blkl4/ipenh; 

if Saved cursor i osition 
common /blk 1 5/icursx, icursy; 



it logical units 

common /blkl 7/lumsg , lumstk, lunenu , lu ttd, lutsys , lulog; 

it data to communicate with the HP driver 
logical* 1 char (80) ; 

integer*2 endch 1 , endch2 , f lag, count ; 

common /ttinbf /endch 1 , endch2, flag, count , char ; 



it queue length for SYSF4 calls 
integer*2 qlen; 

integer*2 hpname(4); it RAD5G name of device HP 
data hpnatr.e/3RHP , 3R ,3R ,3R /; 



integer*2 area(4); it area for itimer call 

integer*2 areal (4); it area for itimer call 

it storage for initializing commands to TT Display 
logical*l ttinit(8) ; 

it ESC E ESC J ESC ) 3 
data ttinit /0 7 ,27,69,27,74,27,41,66/; 



if storage for initializing commands to Touch System 
it A A ESC ESC Uncover-code Stop-code Control-code 
it Note — the Control code has to be non-zero to 
it prevent it to be regarded as trailing NUL 

it The parity bit(odd) is set to 1 

it The sequence is preceeded by two dummy characters 

logical* 1 hpini t (S) ; 

it A A ESC ESC ~ 128 

data hp ini t/0 / , 65 , 65 , 27 , 27 ,UNC , STP , CON / ; 

data luttd, lumsg/LUTTD ,LUliSG/ ; 
data lumstk, lumenu /LUMSTK, LUMENU/ ; 
data lulog/LULOG / ; 
data lutsys/LUTSYS/; 



external bgmsgm; 
external bgmenm; 
external bginpm; 
external endfbk; 



it Call all completion routines with null input, 
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if requested by RT-11, r.o action will be taken, 
call bgmenn(i\CACir) ; 
call bgmsgra (NOA.CTN ) ; 
call bginpm (MO ACT! J ) ; 
call encf bk (L'GACTN ) ; 

if provide sufficient queue length for 
if SYSF4 calls 

qlen=32 ; 
i=iqset (qlen) ; 



intxtp=l 
msgwpr=l 
csgwpw=l 
menstp=0 
teens tn=0 
rsgstr=l 
nsgstw=l 
msgcnt=0 

TuSgtSW=l 

mlrec-0; 

Rif rec=0 ; 
inttp=l ; 
ipredm=G; 
icurtrr=0; 
instrt=21 ; 

H - H f Hi 
instat=27 ; 
insel=33 ; 
inhelp=39 ; 
incont=45 ; 

#- H H IHl ll Ml 
ipenh=0; 
endchl=STP ; 
endch2=13; 
count=0 ; 



if Initialize common data, open files 
if text pointer 
if read pointer warning msg 
if write ptr warning nsg 
if menu stack pointer 
if number of menu stacks on disc 
if read ptr message stack 
if write ptr message stack 
if number of displayed warning messages 
7/ message stack half to write into 



no message stack on disc 
no message stack on disc 
pointer for input buffer from TT 
no predecessor menu 
no task menu 

record number of initial start menu 
fill in record numbers when menufile is done 
if initial status menu 
if initial select menu 
if initial help menu 
if initial control menu 



it 

n 

it 

v 

v 

ir 



no permanent button enhanced 



if 

it stop code for input from Touch Panel 
it stop code for input from keyboard (CP.) 
it pointer for operator input buffer 



if open all files 

l open (UNIT=lunsg, NAME= ' SS : MSGSTK.DAT' , TYP E= ' UN KNOWN ' 

% 1ACCESS= 'DIRECT' ,FORM=' UNFORMATTED ' , RECORDS IZ£=1 5 , 

l 2MAXREC=10) 

l open (UNIT=1 up.s tk,KAME='SS : IIENSTK.DAT' , TYPE*' UNKNOWN 

l 1ACCESS=' DIRECT' , FORK* 'UN FORMATTED' ,RECORDSIZE=10, 

% 2MAXREC=10) 

l open (UNIT=lumenu,NAME='SS : MENUFL.DAT' ,TYPE='OLD ' , 

% 1ACCESS = 'DIRECT' , FORM* 'UNFORMATTED ' , RECORDS IZE=1 36 , 

% 2MAXREC-500, READONLY) 

% open (UNIT=lulog, NAME*' SS : LOCCMD.DAT' , TYPE* 'UNKNOWN' 

l 1ACCESS=' SEQUENTIAL' ,FORM=' FORMATTED ' ) 



it lookup device HP on logical unit luttd 
i=lookup(luttd,hpname) ; 



it open input from touch system 
10 read(luttd, 77 , END-10) endchl; 

7/ format (a 1 ) ; 

if initialize TT Display 
ihp=iwri tw (4 ,ttinit,0,luttd); 

it schedule menu mgr to display initial start menu 
call i timer (0,0,0, 1 , area, DIMEN, bgmenn) ; 

ft Initialize HP Touch System 
ihp^iwri tw(4 , hpini t , 0 , luttd) ; 

if start periodic scheduling of bginpm 
call i timer (0,0, 0, 1 , areal , ACTION , bginpm) ; 

if get next task to call 

while(l>0) 

{ 

call bgc ion (NOMENU ) ; 

killfl = NOKILL; if Reset KILL flag 

if go to (1,2), innunb; It branch to requested task call 

if 1 call taskl; 

it go to 100; 

// 2 call task2; 

it 100 continue; 

> 

2 close (UNI T-lunsg) 

% c los e (UNIT=luns tk ) 

% close (UNIT-lumenu) 

% close (UNIT®lulog) 

end 

//************************************************** ******************* 



//********************************************************************* 
if * 

if COMMON R 0 U T I N L S 

if * 

//********************************************************************* 

if The following common routines are used by more than one 

it manager* 



//********************************************************************* 

if * 

it 0.1 E N D F B K 

it * 

it ** ****************************************************************** 

it 

it Initial release — hn/4 Sept 79 
it NAME: 

J >‘ endfbk(index) 
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it FUNCTION: 

it Stop any feedback initiated by an operator's input 

if CALLING PROGRAM: 

it EXECUTIVE — the very first tine (requested by RT— 11) 

it RT-11 — endfbk is scheduled using itimer 

it INPUT PARAMETER: 

it index -- NOACTN : dummy call from EXECUTIVE 

it index of input 'button' in array inopt 

it INFORMAL INPUT: 

it inopt — contains input option information 

it INFORMAL OUTPUT: 
if inflag — set to ACCEPT 

it NOTES: 

it This routine is a completion routine and will noc be 

it interrupted by any other BG program 

it ALGORITHM: 

it if call from EXECUTIVE return 

it If 'hardcopy button' reverse button image 

it set inflag to ACCEPT 



it it it it it it it it it it it it it it it 4 it it it it it it it 4 4 it 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 it 4 4 4 4 it if it if 4 4 if 4 4 4 4 4 4 it 4 it 4 4 4 4 4 



subroutine endfbk (index) ; 

4 Menu Table declaration, number of input options 
common /blkl /mentbl (TBLMAX) , numop t ; 

4 KILL flag (1: Kill current BG Task) 

4 INPUT flag (0: accept no input; 1: accept input) 
common /blklO/killf 1, inflag; 



it array containing all input options 
integer*2 inopt (OPTL, INMAX) ; 
equivalence (mentbl( 1 ) , inopt ( 1,1)); 

it return if call from EXECUTIVE 
if (index==NOACTN) return; 

4 Get action code of input 
icode = inopt (CODE, index) ; 

4 If hardcopy, reverse button 
if (icode == AC0DP1 | icode == AC0DP2) 
call enhanc (index, RE VEND ) ; 

inflag « ACCEPT; 

return; 

end 



******** *** ** ************ * *** * **** ********* ************* ************** 



0.2 



£ N II A tJ C 



It 

l! 



* 



it * 

j.*********************************************** %&***%* ************* ** 

'1 

It 



it Initial release — bn/4 Sept 79 
It NAME: 



it enhanc (index, i code) 

it FUNCTION: 

it Perform an enhancement function at the TT 



it CALLING PROGRAM: 

Any program of EG Controller that wants an enhancement 
it INPUT PARAMETER: 

it icode — specifies the enhancement type 

it index — pointer to button in array inopt 

it INFORMAL INPUT: 

it inopt — input option information 

it ALGORITHM: 

it Get coordinates of touch field 

it Give enhancement commands to TT 

it return 



it 



subroutine enhanc (index, icode) ; 



it Menu Table declaration, number of input options 
common /blkl /nentbl (TBLMAX) , nurnopt; 

it KILL flag (1: Kill current EG Task) 
it INPUT flag (0: accept no input; 1: accept input) 
common /blklO/killf 1, inflag; 

common /blk 1 7/lumsg, lumstk, lunenu , lu t td, lutsys , lulog ; 

it Array containing all input option information 
integer*2 inopt (OPTL , INMAX) ; 
equivalence (mentbl ( 1 ) , inopt (1,1)); 

it arrays containing the command strings to do 
it the requested enhancement 
logical*l icmdl(22), icmd2(12), icmd3(o); 

it ESC3 ESC&axxrxxC ESC1 ESC&axxC ESCl — set tabs 
data icmdl/07, 2 7, 51, 27, 33, 97, 00, 00, 114, 00, 00, 6 7, 2 7, 49, 
27,38,97,00,00,67,27,49/; 



it ESC&dxx ESCI CSC&dO — one line of enhancement 
data icnd2/07, 36, 2 7, 38, 100, 00, 2 7, 7 3, 27, 38, 100, 64/; 

it ESCi ESCB — back tab, down one row 
data icmd3/07, 36, 27, 105,27,66/; 
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I 



if set enhancenent 
Lf(icode == REV) if 

icnd2 (6 ) =66 

>lse if (icode == REVEND) 
icmd2 (6 ) = 74 

ilse if (icode == 3LKBEG) 
icmd2(6)=73 

2 lse if (icode == BLKEND) 
icmd2(6)=74; 

if set coordinates 
Llx=inopt (LX, index) ; if 

irx=inopt (RX, index) ; if 

Luy=inopt (UY , index) ; if 

ily=inopt (LY, index) ; if 

icmdl (7 ) =iuy / 1C+43 ; 
icmdl(8)=mod(iuy, 10)+48; 
icmdl (10) =irx/ 10+48 ; 
icmdl (1 1 ) =tiod ( irx, 10)+48; 
icmdl ( 18) =i lx/ 10+48 ; 
icmdl (19)=mod(ilx, 10)+48; 

ihp=iwritw(ll ,icndl ,0,luttd) ; 
ihp=iwritw(6,icmd2,0, luttd) ; 

vhile(iuy<ily) if while more lines to enhance 

{ 

iuy=iuy+l ; 

ihp=iwritw(3,icmd3,0, luttd) ; 
ihp=iwri tw(6 ,icmd2,0,luttd) ; 

} 



typ 

inverse video 

# inverse, half bright 
if blinking, half bright 
ir inverse, half bright 



of button into command string 

left x 

right x 

upper y 

lower y 



return; 

Bnd 



jf********* ************** ********************************************** 

if * 

0.3 E R R H S G 

'/ * 

,'*********** * **** ********************* ******************************** 

I 

't Initial release — hn/7 Sept 79 
? NAME : 

errmsg ( mtyp ,nlen, mbuf f ) 

If FUNCTION: 

store a message (input related or warning) in the temporary 
' message stack nsgw or inpmsg and store an end-of-ressage 

f word 

'/ CALLING PROGRAM: 
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jl Any program of the BG Controller that wants a message 

f to be displayed 

it INPUT PARAMETER : 

it mtyp - typ of message: INN - input related message 

it hi I - warning message 

it mien - length of message (words) 

it nbuff - array containing ASCII text 

it INFORMAL INPUT: 

it msgw - temp, storage for warning messages 

it msgwpr - read pointer for msgw 

it msgwpw - write pointer for msgw 

it INFORMAL OUTPUT: 
it Same as informal input 

it Additionally 

it inpmsg - text of input related message 

it NOTE: 

it An overflow of this temporary stack will not happen, its 

it length is sufficient for all messages generated by any 

it completion level execution 

if ALGORITHM: 

it while more literals to store 

it copy a word of literals 

it increment the write pointer 

it if the write pointer > stack-length 

it set write pointer = 1 

it write an end-of-nessage word 

it increment write pointer 

it if write pointer > stack-length 

it set write pointer * 1 

it 



it it it it it it it it it it it it it it it it it it H if it it it it it if it it if it it it if if it it if it it it if it if it it it it it it if it it if if it it if it it it If it it it it it it it H if 



subroutine errmsg(mtyp ,mlen, mbuf f ) ; 



if Storage for operator input related messages 
it and warning messages from tasks 
logical*! inpmsg (IlSGL) , iwmsg (MSGL ) ; 
common /blk5/inpmsg , iwmsg; 

it Storage for 

it warning messages from EG Controller, 
it read and write pointer for msgw 
logical*! msgw(MSGWL) ; 
common /blk6 /msgw , msgup r , msgwpw ; 

logical*l mbuff(MSGL); 

it Store input related message 
if (mtyp == INM) 

{ 

f or (i=l ; i<=nlen ; i=i-t*l ) 

inpmsg(i) = inbuff (i); it copy text 
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for ( j=mlen+l ; j <MSGL ; j=j+l) 

inpmsg(j) = if blank into rest 

> 

// store warning message 

*lse 

{ 

for(i=l;i<=nlen;i=i+l) 

{ 

msgw (msgwpw) = mbuff (i); // copy a word 

ir increment write pointer 
if (msgwpw >= MSCWL) msgwpw = 1 
else msgwpw = msgwpw + 1; 

> 

// write end-of-message word, increment pointer 
ms gw (msgwpw) = ENDOFM; 
if (msgwpw >= MSGUL) msgwpw = 1 
else msgwpw = msgwpw + 1; 

> 

return; 

and 



;***************&*********************************************** ****** 

! r 

t 0.4 A S C I N T 

f 



, **************** ****** *****& ****** k'k'k'k ***£'&* *****■•/<&&**&**'*:* ***&*** It 

'/ 

'r Initial release — hn/14 november 79 
't NAME: 

'f ascint (p 1 , p2, p3) 

it FUNCTION: 



r convert an ASCII coded integer into an integer 

it ALGORITHM: 

it p3= (p 1-40) *30 + ( P 2-40) 

it 



if it it it it It it it it it if If if it it it it it it it it it it it it it it It It if it it it if if it it it it it it it it it it it if it it it it if it it it it it it it it it it it it if it it It it 



subroutine ascint (pi , p2 ,p3) ; 
integer*2 pl,p2,p3; 

?3=(p 1-40) *30 + P 2-40 ; 



return; 

end 



*********** ****** * ******* ******************************************** 

it * 

it 1. CONTROL I/O MANAGER 

if * 

'f ******* ******************************************************** ****** 



it initial release — hn/24 aug 79 
// NAME: 

if bgciom(if lag) 

if FUNCTION: 

if process an operator input request 

if CALLING PROGRAMS: 
if - any BG Task 

if - EXECUTIVE 

if INPUT PARAMETER: 



if iflag — 0: EXECUTIVE expects id of next task [NOMENU] 

it 1: A BG Task requests a menu to be displayed 

if (Menu record nunber in itmenu) [MENU] 

if INFORMAL INPUT: 

it itmenu — record nunber of any task menu to be 

it displayed 

if INFORMAL OUTPUT: 

if intext (TEXTL ) — one line of text or 

if intxtp — pointer for text buffer 

it innunb — one integer digit or 

it inchar — one ASCII character 



it ALGORITHM: 
if bgcion(if lag) : 

it clear input storage locations 

it if call from a task 

it schedule the MENU MGR to display menu immediately 

it loop until input ready 

if return input to caller 



subroutine bgcion(iflag) 
external bgmenm 



it Operator input storage declarations 
common /blk2/intext (TEXTL) , innunb, inchar, intxtp ; 

it indone, flag input done 
common /blkl3/intt (INTTL) , inttp, indone; 

integer*2 area(4); it area for itiner call 

it Preset input storage locations 

innunb = -1; 
inchar = ' it ft 
intext (1 ) = '////'; 
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or (i=2;i<=TEXTL;i=i+l) 
intext(i) = 

it preset pointer 
Lntxtp = 1; 

if Schedule MENU MGR immediately after 1 clock tick 
it if task menu is to be displayed 
if (if lag == MENU) 

call it imer( 0,0,0, 1 ,area,DTMEN,bgmenn) ; 



it Loop until an input is done 
it preset flag 
indone = NODONE; 

«jhile(indone == NODONE); 

return; 

end; 

jf ** ^**********A:******************35:**^*******7*c**********************A**^: 
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jf*********************************^*^*********** *****&**************** 

If * 

'} 2. INPUT MANAGER 

/ * 

't 

/ initial release — hn/24 aug 79 
t NAME: 

j bginpm(inp) 

? FUNCTION: 

? Processing of operator inputs from touch panel/keyboard 

? CALLING PROGRAM: 

f EXECUTIVE — the very first time (requested by RT-11) 

RT-11 — bginpm is scheduled by an input interrupt driver 
} INPUT PARAMETER : 

l inp -- 0 (NOACTN ) : Dummy call from EXECUTIVE 

r TTINP: Input from TT 

f KEYINP: Input from keyboard 

t INFORMAL INPUT: 

inopt — contains input options and action codes 
f intt — input buffer 

f INFORMAL OUTPUT: 

* intext (TEXTL) — one line of text or 

f innumb — one integer number or 

f inchar — one ASCII character 

inflag — ACCEPT - accept input 

i NOACPT - do not accept input 

t NOTES: 



This routine is a completion routine and will not be 
f interrupted by any other BG program. 

Sane applies to all routines called from bginpm. 

* ALGORITHM: 

re-schedule its call (after .1 seconds) 
f convert and check input 

if input invalid 

schedule MESSAGE MGR for 'Illegal Input' and return 
J else 

schedule MSG MGR to erase any input related message 
provide feedback to operator (reverse button) 
call LOG MGR to log command 
if a new menu is to be displayed 

schedule MENU MGR to display new menu 
else 

schedule MENU MGR to erase current menu in 1 second 
if input for task 

save input for CONTROL I/O MGR 
else 

call the CONTROL COMMAND MGR 
return 



mmmmmMMmmmmmmmmiwmMnmmtumm 



subroutine bginpm (inp) 
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xternal bgmsgm; 
xternal bgmenm; 
xternal bginpm; 



it Menu Table declaration, number of input options 
ommon /blkl /mentbl (TBLMAX) , nunopt ; 

# Operator input storage declarations 
ommon /blk2/int ext (TEXTL) , innunb , inchar , intxtp ; 

it Storage for menu-id's to be erased or 
it to be displayed, initiated by the controller 
onunon /blk3/iecmen, icnenu; 

it Storage for menu-id's to be erased or 
it to be displayed, initiated by a task 
:onmon /blk4/ ietmen, itmenu; 

it Storage for operator input related messages 
it and warning messages from tasks 

it Menu stack, stack pointer, number of saved menu stacks 
:ommon /blk7/mens tk (MENSTX) , menstp, menstn; 

it Menu record number of current menu's predecessor, 
it menu record number of current or saved task menu , 
it name of active BG Task (if any), 
it and current menu's type 
:omnon /blk9/ipredn, icurtm, iactsk (TNL) , mentyp ; 

it KILL flag (1: Kill current BG Task) 

it INPUT flag (0: accept no input; 1: accept input) 

:onmon /blklO/killf 1 , inflag; 

it input buffer, pointer, input-done flag 
:onmon /blkl 3/intt (INTTL ) , inttp, indone; 

:omnon /t tinbf /endchl ,endch2, flag, count , char ; 

Logical*l char(80) ; 

Integer *2 endchl ,endch2, flag, count ; 



Lnteger*2 inx,iny 



it 

Lnteger*2 



Storage for keyboard entry 
inkey 



Lnteger*2 areal (4) ; 
integer *2 area2(4) ; 



it area for 
it schedule 
it area for 
it schedule 



itimer to 
the MENU MGR 
itiraer to 
the MESSAGE MGR 
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nteger*2 area3(4); if area for itir.er to 

if schedule itself 

if Array containing all input options 
nteger*2 inop t (OPTL , INMAX) ; 
quivalence (mentbl (1) , inopt (1 , 1) ) ; 

if Do not process first dummy call from EXECUTIVE 
f(inp == NOACTN) return; 

if Re-schedule itself 
all it imer (0,0, 0,6, area 3, ACTION, bginpm) ; 

if return if no input done 
.f (count ”0) return ; 

if reset buffer pointer 

:ount=0 ; 

if Do not accept any input if inflag set 
.f (inflag « NOACPT ) return; 



inx * char (2) ; 
iny = char (3) ; 

j = i; 

invflg=0; it flag set if valid coordinates found 

while ( j<=nuraopt) 

{ 

i=j ; it save index 

if (inx<=inopt (RX,j ) & inx>=inopt(LX, j ) 

& iny<=inopt (LY , j ) & iny>=inopt(UY,j ) ) 

{ invf lg=l ; 
break; } 

> 

if (invf lg==0) it if invalid input , schedule MSG MGR 

{ 

call errmsgdNM, 13, 'INVALID INPUT'); 
call itimer (0,0,0, 1 ,area2,DINPUT,bgmsgro) ; 
return; 

> 



call bglogm(i); it log command 
call feedbk(i); it provide feedback 

it interpret input action code 
icode = inopt (CODE, i) ; 

if (icode >= AC0DP1 & icode<=AC0DCN) # processed by bgc 

call bgcmdn(i) ; it pass input 

return; 

if (icode == ACODEM) it display new menu 

{ 

icmenu = inopt (ANNEX, i) ; 

call itimer (0 ,0 , 0, 1 , areal ,mentyp ,bgmenm) ; it schedule MENU 



> 



Ise # erase current display in 1 second 

{ 

if(mentyp == TASK) It current task menu 
{ 

ietmen = icurtm; it task menu id 
call it iraer (0 , G, 1 , 0, areal , ETMEN.bgmenm) ; 

> 

else if(menstp>0) 

{ 

iecmen = menstk(menstp) ; 

It Mark menu on top of stack to be erased 
mens tk (mens tp) = -mens tk (mens tp ) ; 

call itimer (0 , 0, 1 , 0 ,area 1 , ECMEN,bgraenn) ; It schedule MENU MGR 
> 

} 

f(icode == ACODET) It if text input 

{ 

intext (intxtp) = inop t (ANNEX, i) ; 
intxtp = intxtp+1; 
f if ( I' M H c/r If or so) 
indone = DONE; 
return; 

> 

If (icode =«= ACODEN) It if integer 

( 

innunb = inopt (ANNEX, i) ; 

indone = DONE; 

return; 

} 

if(icode == ACODEC) It if character 

( 

inchar = inopt (ANNEX,!) ; 

indone = DONE; 

return; 

> 

end 



//******* ********************************************** **************** 

it * 

It 2.1 F E E D B K 

It * 

it ********************************************************************* 

it 

It Initial release — hn/4 Sept 79 
it NAME: 



f eedbk (index) 

FUNCTION: 

Provide feedback to an operator's input 
CALLING PROGRAM: 
bginpm 

INPUT PARAMETER: 

index — index for input in array inopt 
INFORMAL INPUT: 

inopt — array containing input information 
INFORMAL OUTPUT: 

inflag — NOACPT - Do not accept any input 
ALGORITHM: 

Provide accustic feedback 
Set inflag to NOACPT 

If (STATUS | SELECT | HELP | CONTROL | ACKNOWLEDGE) 

* return; 

* else 

J reverse button 

t schedule endfbk in .5 seconds to reverse button back 

t 






subroutine f eedbk (index) ; 
external endfbk; 



it Menu Table declaration, nunber of input options 
:ommon /blkl /tnentbl (TBLMAX) , nunopt; 

it KILL flag (1: Kill current BG Task) 

// INPUT flag (0: accept no input; 1: accept input) 
:onmon /blklO/killf 1, inflag; 

it Array containing input information 
integer*2 inopt (OPTL, INMAX) ; 
equivalence (mentbl (1 ) , inop t ( 1,1)); 

it array for itimer call 
integer*2 area(4) ; 

it get action code of input 
icode = inopt (CODE, index) ; 

fl- H MM provide accustic feedback 

it Do not accept input during feedback period 
inflag = NOACPT; 

it If Status, Select, Help, Control, Acknowledge: return 

it else reverse button, schedule end of feedback 
if (icode < ACODAC ) 

{ 
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call enhanc (index, REV) ; 

call it iner ( 0 , 0 , 0 , 30 , area, index, endfbk) ; 

> 

;turn; 

id 
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*********** ** ************* ********* **************** ****************** 

* 

3. CONTROL COMMAND MANAGER * 

* 

*************************************************** ****************** 



Initial release — hn/24 aug 79 
NAME: 

bgcmdm(inx) 

FUNCTION : 

Process operator inputs from permanent displayed 
control 'buttons' and from menus initiated by 
the BG Controller. 



CALLING PROGRAM: 

Input Manager (bginpm) 

INPUT PARAMETER: 

inx - index in inopt, specifies kind of input 
INFORMAL INPUT: 

mentbl — menu table with all input options 
mentyp — type of current menu 
INFORMAL OUTPUT: 

killfl — 1: current task is to be killed 
ALGORITHM: 



If input from permanent button 

{ If PRINT CRT 1 / 2 : Initiate hardcopy; 

If ACKNOWLEDGE : Schedule MSG MGR to erase warning msg 
If STATUS, HELP, 

SELECT, CONTROL: 

{ If control function is active, erase menu; 

If function not active, display its first menu; 

> 



> 

If input from a controller menu button 
{ If SELECT-nienu (start a new task) 

{ Erase SELECT menu; 

Set the KILL flag 
Return new task-id; 

> 



If CONTROL -menu: 

Call the PB MGR to process the input; 



> 

IHtfiHHHHhVtitllfHHHHhiiHHHHtiHWiHHHHHHHHHNHHtltlHHHhlHHtlhilHHHHhhilHHHtVitiHHhtitiHt 



ubroutine bgcndm(inx) ; 

xternal bgmsgn; 
xternal bgmenn; 



if Menu Table declaration, number of input options 
ommon /blkl /mentbl (TBLMAX) , nunopt ; 

if Operator input storage declarations 
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onmon /blk2/intext (TEXTL) , innurab , inchar , in txtp ; 

It Storage for nenu-id's to be erased or 
It to be displayed, initiated by the controller 
omnon /blk3/iecnen, icmenu ; 

It Storage for menu-id's to be erased or 
It to be displayed, initiated by a task 
:onmon /blk4/ie tmen, ittnenu; 

It Menu stack, stack pointer, number of saved menu stacks 
:onmon /b lk 7 /mens tk (MENSTX) , menstp, nenstn; 

It Menu record number of current menu's predecessor, 

// menu record number of current or saved task menu , 

It name of active EG Task (if any), 

It and current menu's type 
:oramon /blk9/ipredm, icurtm, iactsk (TNL ) , mentyp ; 

It KILL flag (1: Kill current BG Task) 

It INPUT flag (0: accept no input; 1: accept input) 
lonrnon /blklO/killf 1, inflag; 

It record numbers of initial menus known 
It to the EG Controller 

It l)Status, 2)Select, 3)Help, 4)Control 5)Start 
:onmon /blkl 1 /ins tat , insel, inhelp, incont, instrt; 

It arrays for itimer calls 
Lnteger*2 areal (4) ; 

Lnteger*2 area2(4) ; 

It array for input option 
Lnteger*2 inopt (OPTL, INJIAX) ; 
equivalence (mentbl ( 1 ) , inop t ( 1 , 1 ) ) ; 



It save action code 
Lcode = inopt (CODE, inx) ; 

Lf (inx <= CONMAX) It permanent control buttons 

{if (icode == ACODP1) It hardcopy CRTl 

{ 

lt +-H - H-H~++ initiate hardcopy 
return ; > 

else if (icode == AC0DP2) ‘t hardcopy CRT 2 

{ 

// ■} t I t I M t initiate hardcopy 
return; > 



if ACKNOWLEDGE 



else if(icode == ACODAC) 

{ 

it Erase warning message 
call itimer (0,0,0, 1 , a real , EWARN ,bgmsgm) ; 
return; > 

else it STATUS, SELECT, HELP, CONTROL: either 

if erase current menu or display initial one 

{ 

kode = icode-8; if kode and nentyp same meaning 
if(raentyp == kode) if erase menu, switch off function 

{ 

iecmen = mens tk (mens tp ) ; if copy current menu-id 

if Mark menu on top of stack 
mens tk(mens tp ) = -menstk (mens tp ) ; 
call itimer (0,0,0, 1 , area2 , ECMEN ,bgmenn) ; 
return; 

> 

else if display initial menu, switch on 

{ 

if(icode == ACODST) if status 

icraenu - ins tat 

else if(icode == ACODSE) select 
icmenu 53 insel 

else if (icode == ACODHP) if help 

icmenu = inhelp 

else if (icode == ACODCN) if control 

icmenu = incont; 

call itimer (0,0,0, 1 , area2,kode,bgmenm) ; 
return ; 

> 

> 

> 

if input from a controller menu 
:lse if (icode == ACODTK) it new task 

{ 

innurnb » inopt (ANNEX, inx) ; it task-id for EXECUTIVE 

killfl = KILL; it kill any running task 

ietmen = icurtm; 

call itimer(0, 0,0,1, areal, ETMEN.bgmenm) ; it erase task menu 

it erase current select menu 
iecmen = menstk (mens tp ) ; 
menstk (mens tp) = -mens tk (mens tp ) ; 
call itimer (0,0,0, 1 , area 2 , ECMEN, bgnenn) ; 
return ; 

> 

ilse it input for PB MGR 
{ 

call bgpbm(inx) ; 
return; 

> 



im 



iturn; 

id; 

t********* ***************************************************** ****** 
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****** ************* ************************************************* 

* 

4. M E N U MANAGER 

* 

******************************************************************** 

Initial release — hn/6 Sept 79 
NAME : 

bgmenn(itype) 

CALLING PROGRAM: 

EXECUTIVE — the very first tine (requested by RT-11) 

RT-11 — bgnenn is to be scheduled using itiner call 

FUNCTION : 

Update the enhancenents of some permanent 'buttons' 

Process other program's request to display/erase a menu 
Read a menu from the menu file and update the TT display 
Do not allow any operator input while changing the display 
INPUT PARAMETER: 

itype — specifies the kind of action requested by the 
scheduling program 
NOACTN - dummy call from EXECUTIVE 
DIMEN - display initial start menu 
DSMEN - display status menu 
DSEMN - display select menu 
DHMEN - display help menu 
DCMEN - display control menu 
DTMEN - display BG Task menu 
ECMEN - erase a control menu 
ETMEN - erase a task menu 
INFORMAL INPUT: 

menstk - menu stack 
menstp - menu stack pointer 
icmenu - controller menu to be displayed 
iecmen - controller menu to be erased 
itmenu - task menu to be displayed 
ietmen - task menu to be erased 
mentyp - type of current menu 
mentbl - menu table for storage of input 
and image information 
INFORMAL OUTPUT: 

inflag — ACCEPT: accept operator input 

NOTE : 

This routine is a completion routine and will not be 
interrupted by any other BG program 
ALGORITHM: 

if NOACTN return; 
set inflag to NOACPT 
if DIMEN 

Display any next menu 
if D SI1EN , D SEMN , D HI IEN , D CMEN 

if displayed menu is of the same type 
replace the menu by the new one 
else save the old one and display the new one 
if DTMEN 
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I 

Save new task menu id 

'i 

if a task menu is being displayed 
replace it by the new one 
if ECMEN 

if the menu is being displayed 
display the next saved menu 
if ETMEN 

if the task menu is being displayed 
display any waiting menu 
set inflag to ACCEPT 
return 






itititititftltititititiUtititltitititititit 



ibroutine bgmenn(itype) ; 



it Menu Table declaration, number of input options 
Dnmon /blkl /mentbl (TBLMAX) , nunopt; 

it Storage for menu-id's to be erased or 
it to be displayed, initiated by the controller 
Damon /blk3/iectnen, icmenu; 

it Storage for menu-id's to be erased or 
it to be displayed, initiated by a task 
onmon /blk4/ietmen, itnenu; 

it Menu stack, stack pointer, number of saved menu stacks 
onmon /blk7/menstk(MENSTX) , raenstp, menstn; 

it Menu record number of current menu's predecessor, 
it menu record number of current or saved task menu , 
it name of active BG Task (if any), 
it and current menu's type 
omnon /blk9/ip redo, icurtm, iactsk(TNL) , mentyp ; 

it KILL flag (1: Kill current BG Task) 
it INPUT flag (0: accept no input; 1: accept input) 
onmon /blklO/killf 1, inflag; 

onmon /blkl 1 /ins tat , insel , inhelp , incont , instrt ; 

it Array containing all input options 
nteger*2 inopt (OPTL , INMAX) ; 
quivalence (mentbl ( 1 ) , inopt (1,1)); 

it No action on dummy call from EXECUTIVE 
f(itype NOACTN) return; 
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it Do not allow any operator input 
if lap, = KOACPT 

it Display initial start menu 
: (itype == DIMEN) 

(icmenu = 0; it reset store 

call mdispl; it display any waiting menu or initial one 

> 

it Display Status , Select ,Help, Control menu 
lse if (itype>=DSMEN & itype<=DCMEN ) 

{ 

if (itype ==* mentyp) it menu of same type on TT 
{ ‘ 

call mepop; it erase current menu 

if (mepush ( 1 ) -- OK) it push new menu 

call mdispl; it display new menu 

> 

else it menu of different type on TT 

{ 

if(mepush(l) =- OK) it Menu pushed on top of menu-stack 

call mdispl; it Display the new menu 

> 

icmenu * 0; it reset store 

> 



it Display task menu 
lse if (itype == DTMEN) 

{ 

if(icurtin != itmenu) it if different task menu 

{ 

icurtm = itmenu; it save menu id 

if (mentyp==*TASK | mentyp—START ) // task menu is being displayed 

it or initial start menu 
call mdispl; it display new task menu 

> 

itmenu = 0; it reset store 

> 



it Erase controller menu 
lse if (itype == ECMEN) 

{ 



it get absolute menu id on top of menu stack 



1 = menstk(menstp) ; 



if (i<0) i--i ; 
if(iecmen == i ) it 

{ 

call mepop; it 

call mdispl; it 

> 

iecmen =0; it 

} 



menu is being displayed 

pop menu on top of stack 
display next menu 

reset store 



it Erase task menu 
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Ise if(itype == ETMEN ) 

{ 

if(icurtm =« ietnen) if menu to be erased is saved or 

if being displayed 

{ 

icurtm ® 0; # erase menu store 

if(mentyp -= TASK) // old task menu being displayed 
call mdispl; if display new task menu 

> 

ietmen = 0; if reset store 

} 



if Allow operator input 
nf lag = ACCEPT; 

eturn; 

nd 



************* ************* **************** ********** ********** ******* 

* 

4.1 M E P U S H 

* 

********************************************************************* 

Initial release — hn/6 Sept 79 
NAME : 

mepush(i) 

CALLING PROGRAM: 
bgmenn 
FUNCTION : 

Push a new controller menu id on top of the menu stack, 
save any full stacks on disc 
INPUT PARAMETER: 

i — dummy parameter (needed for function call) 

INFORMAL INPUT: 

menstk - menu stack 
menstp - menu stack pointer 
menstn - number of saved stacks on disc 
icmenu - menu-id to push 
FUNCTION OUTPUT: 

OK - new menu-id on top of menu stack 
NOTOK - a full stack could not be written onto disc 
new nenu-id is not on top of menu 
INFORMAL OUTPUT: 

menstp - menu stack pointer 
ALGORITHM: 

if menu-stack full 

increment stack counter 
write stack onto disc 
if write not possible 

decrement stack counter 
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initiate display of a warning message 
return NOTOK 

else reset stack pointer 
else increment stack pointer 
store menu-id on stack 
return OK 



f it it it it it it it it it it it it it it it it if it it it it it it it it it it it it it it it it it it it H it it it it it it it it it it it it it it it it it it it it it it It it it it it it it it it 



inction nepush(i); 
<ternal bgmsgn 



it Storage for menu-id's to be erased or 
it to be displayed, initiated by the controller 
Dnrnon /blk3/iecmen, icmenu; 



it Menu stack, stack pointer, number of saved menu stacks 
Dmnon /blk7/menstk(MENSTX) , menstp, menstn; 

it Array for itimer call 
nteger*2 area(4) ; 
ateger*2 lumstk; 
ata lumstk/LUMSTK/ ; 



f (mens tp>=MEMSTX) it menu stack full 

{ 

menstn - menstn+1; it incr counter for saved stacks 

it write stack onto disc, if error goto 9999 
wri te (lunstk'menstn,ERR=9999) mens tk 
menstp = 1 ; it reset stack pointer 

> 

Ise it no stack overflow 

menstp = menstp+1; it incr stack pointer 

it Store menu-id on stack 
enstk(menstp) = icmenu; 
epush = OK; 
eturn ; 



it If write could not be done properly 
999 menstn = menstn-1; it reset counter 

it Initiate display of warning message 
call errmsg(WM, 27 , 'MENU STACK WRITE IMPOSSIBLE'); 
call itimer(0,0,0, 1 ,area ,DWARN ,bgmsgra) ; 
mepush = UOTOK; 
eturn; 
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ad 



c £ &*** * *** * * * * * -k * * ** & 'k-k'k-k * * * ************************* k ******** ***** ** 

* 

4.2 M E P 0 P 

* 

******** ******************************** ***** *************** ********* 



Initial release — hn/6 Sept 79 
NAME: 

mepop 

FUNCTION: 

Pop the menu on top of the stack, 
read any menu stacks saved on disc 
INFORMAL INPUT: 

nenstk - menu stack 
menstp - menu stack pointer 
menstn - number of saved stacks on disc 
INFORMAL OUTPUT: 

menstp - menu stack pointer 
ALGORITHM: 

decrement stack pointer 
while(stack in memory or on disc) 
while (stack pointer > 0) 

if (menu-id positiv) return 
else decrement stack pointer 
if (stack saved on disc) 
read stack 
if (improper read) 

initiate warning message 
return 

decrement stack counter 

reset stack pointer to top of stack 

return 



It if it it it It it it if it it it it it it it it it it it it it it it it it it it It it it it It it It it It it it it it it it it it it it it it it it it it it it it It it it it it it if it it it It it 4 



ubroutine mepop; 
external bgmsgra; 



if Menu stack, stack pointer, number of saved menu stacks 
:ommon /blk7/mens tk (MENSTX) , menstp, menstn; 

:ommon /blkl 7 / lumsg , lunstk, lumenu, luttd , lutsys , lulog ; 

if array for itimer call 
Lnteger*2 area(4) ; 
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it decrement stack pointer 
(menstp>0) inenstp « menstp-1; 

it while there is a stack in memory or on disc 
uile(menstp>0 | nenstn>0) 

{ 

it while a stack in memory 
while(menstp>0) 

{ 

if (mens tk (mens tp) >0) return it next menu found 

else menstp = menstp-1; 

> 

it if stack saved on disc 
if (menstn>0) 

{ 

read (lums tk'mens tn, ERR=9S99 ) menstk 
menstn =» menstn-1; it update stack counter 

menstp - MENSTX; it update stack pointer 

> 

> 

aturn; it return, stack is empty 

it If read could not be done properly 

it Initiate display of warning message 
999 call errmsg (VM, 26 , 'MENU STACK READ IMPOSSIBLE'); 

call i timer (0,0,0, 1 , area,DWARN,bgnsgm) ; 
eturn; 
nd 



******** **** ********* *** ********************************************* 

* 

4.3 M D I S P L 

* 

********************************************************************* 

Initial release — hn/7 Sept 79 
NAME: 

mdispl 

CALLING PROGRAM: 
bgmenm 
FUNCTION: 

Get the next menu to be displayed 

a) a controller menu on stack 

b) a task menu 

c) initial start menu 

Read and display the menu image 
Read and store the input option information 
Update the enhancement of certain permanent buttons 
Generate error messages if read/write impossible 
INFORMAL INPUT: 
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//' menstk - controller menu stack 

// icurtm - task menu 

$ instrt - initial start menu 

renstp - menu stack pointer 
i INFORMAL OUTPUT: 

inopt - array containing input option information 
ALGORITHM: 

If controller menu on stack 
( get menu-id 

else if task menu 
get menu-id 

1 else get initial start menu-id 

while(image records on disc) 
read a record 

if read error, display message, return 
display image of the record 
if write error, display message, return 
read all input option records 
if read eror, display message, return 
update enhancement of certain permanent buttons 
return 






ibroutine radispl; 



xternal bgmsgm; 



it Menu stack, stack pointer, number of saved menu stacks 
ommon /blk7/menstk(MENSTX) , menstp, menstn; 

it Menu record number of current menu's predecessor, 
it menu record number of current or saved task menu , 
it name of active BG Task (if any), 
it and current menu's type 
ommon /blk9/ ip re dm, icurtm, iactsk(TUL) , mentyp; 

oramon /blkl 1 /ins tat , insel, inhelp , incont , instrt ; 

it number of warning messages to be displayed 
it index to warning message stack half to write into 
it first message stack record number on disc file 
it last message stack record number on disc file 
ommon /blk!2/msgcnt , mgstsw, mfrec, mlrec; 



it array for itimer call 
nteger*2 area (4) ; 



it get menu-id to be displayed 
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if controller-menu 



i(menstp > 0) 

irec * menstk(mens tp) 
ese if(icurtn != 0) // task menu 

irec = icurtm 

ese irec = instrt; if Initial start menu 

if reset offset for disc records 

i= 0; 

if preset flag 
lone = NODONE; 

if while any inage records on disc, read and display thei 
,iile(idone !- DONE & i<=3) 

{ 

if read one inage record 
call r image ( i rec+i , if lag , i done ) ; 

if if read error, display message and return 
if (if lag == NOTOK) 

{ 

call errmsg (WM, 20, "MENU READ IMPOSSIBLE"); 
call i timer (0 , 0, 0 , 1 , area ,DWARN,bgmsgn) ; 
return ; 

> 

if increment record offset 
i « i+ 1 ; 

if display one image record 
call dimage (if lag) ; 

if if write error, display message and return 
if (if lag == NOTOK) 

{ 

call errmsg (UM, 23 , 'MENU DISPLAY IMPOSSIBLE"); 
call i timer (0 , 0, 0 , 1 , area ,DWARN ,bgmsgm) ; 
return ; 

> 

> 



if read all input option information 
ill rinopt (irec, if lag) ; 

it if read error, display message and return 
: (if lag == NOTOK) 

{ 

call errmsg (WM, 20 , "MENU READ IMPOSSIBLE"); 
call itimer (0, 0,0,1 , area ,DWARN ,bgmsgm) ; 
return; 

> 

it Update any enhancements of control buttons 
ill updenh; 
iturn; 
id 
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t ********* ************************ *************** A******** *********** 

) * 

4.3.1 R I M A G E 

! * 

j: ********** *************** ******************************************* 

ij 

Initial release — hn/7 Sept 79 
; NAME: 

rimage (menrec, if lag, idone) 

CALLING PROGRAM: 
mdispl 
FUNCTION: 

read a specified menu-record into mentbl 
if end-of-inage , set flag idone 
INPUT PARAMETER: 

menrec - record number to read 
OUTPUT PARAMETER: 

iflag - NOTOK: Read error 
CK : read ok 

idone - DONE : end-of “image recognized 
NODONE: no end-of -image 
INFORMAL OUTPUT: 

mentbl - menu image starting at mentbl (IMAGEX) 

ALGORITHM: 

read image record 
if read ok 

if last image record 
set flag to DONE 
return flag OK 
else return flag NOTOK 






ubroutine rimage (menrec, iflag, idone) ; 

it Menu Table declaration, number of input options 
ommon /blki /mentbl (TBLKAX) , nunopt; 

ommon /blki 7/lumsg, luns tk, lumenu, luttd, lutsys , lulog; 

it array for temporary image storage 
ogical*! image (TBLMAX) ; 
quivalence (mentbl (IMAGEX) , image ( 1 ) ) ; 

rec=menrec ; 

if read image record 

read (lumenu'irec,ERR=9999) (image (i) , i=l ,540) 

it if last record read, set done flag 
f (image(540) == EKDOFR) it last word in record = code 

idone = DONE; 
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if return read ok 
i lag * OK; 
iturn; 

if return NOTOK, if read error 
c 99 if lag = NOTOK; 
i turn; 

€'.d 



;******************************************************************** 

* 

4.3.2 D I M A G E 

* 

<**************** ****************************** ************** ******** 

Initial release — hn/10 Sept 79 
NAME : 

dimage (if lag) 

CALLING PROGRAMS 
mdispl 
FUNCTION: 

Display the menu image stored in image 
OUTPUT PARAMETER: 

iflag - OK: No write error 
NOTOK: Write error 
INFORMAL INPUT: 

image - image of menu display 

image starts at inentbl (DLAGEX) 

ALGORITHM: 

while there are more image commands 
write commands to display 
if write error, return NOTOK 
return OK 






ubroutine dimage(if lag) ; 

if Menu Table declaration, number of input options 
ommon /blkl /mentbl (TBLMAX) , numopt; 

onmon /blkl 7/lumsg, luras tk , lumenu , lut td , lutsys , lulog; 

if output buffer with pointer 
ogical*l buff (62); 
nteger*2 buffx; 

if array containing the menu image 
ogical*l inage(TELMAX) ; 
quivalence (mentbl (IMAGEX) , image (1 ) ) ; 

if command string to position cursor to start 
if of input related message field after the new 
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! 

it image has been transferred to the TT Display 
]gical*l cmd(10); 

eta cmd/07, 27, 38, 97, 50, 49, 114, 50, 49, 67/; 



it preset ending index used in loop 
jdend = 0; 

it send always '$' at beginning of command string 
Iff (1) =36; buff (2 ) -36 ; 

it do forever, check if more commands stored 
it if any and less than display buffer size, 
it write the commands 
Viile ( 1 >0) 

{ 

it preset begin index and end index for checks 
indbeg = indend+1; 
indend = indend+60; 

buffx-3; it first entry for command string 

it check all entries in image between indbeg and indend 
for (index= indbeg ; index<=indend ; inbex=index+l ) 

{ 

buff (buffx) -image (index) ; 
buf f x=buf f x+1 ; 

it if end-of-irnage or end-of-physical-record 
it write rest of image 
if (index>TBL!IAX | image (index) “ENDOFI ) 

{ 

buf f x=buf f x-1 ; 
buff (buffx)«36; it '$' 
nwords^buf f x/2 ; 

ihp=iwri tw(nwords ,buff,0,luttd); 
it return flag write OK 

it position cursor after image commands done 
ihp = iwritw(5 , end , 0 , lilt td) ; 
iflag = OK; 
return; 

> 

} 



it write image 

ihp=iwritw(31 , buff ,0, lut td) ; 

} 



.000 format (80al) ; 

It write error if here 
>999 iflag = NOTOK; 
return; 
md 
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jl ********** ********************************************************** 

i * 

i 4.3.3 RINOPT 

ll * 

i ******************************************************************** 

}< 

^Initial release — hn/10 Sept 79 
{ NAME : 

i rinopt (menrec, if lag) 

? CALLING PROCRAM: 
i! mdispl 

? FUNCTION: 

read all input option information 
read menu parameter and save them 
INPUT PARAMETER: 

menrec - number of first record of the menu 
OUTPUT PARAMETER: 

iflag - OK: No read error 
NOTOK: read error 
INFORMAL OUTPUT: 

mentbl - input option information 
nunopt - number of input options 
ipredn - record number of predecessor menu 
mentyp - type of this menu 
ALGORITHM: 

set initial index in mentbl for read 
while there are any records to read 
read record 

if error, return NOTOK 
if last record, break 
store parameter 
return OK 






ib routine rinopt (menrec , iflag) ; 

if Menu Table declaration, number of input options 
Dnmon /blkl /mentbl (TBLMAX) , nunopt; 



if Menu record number of current menu's predecessor, 
if menu record number of current or saved task menu , 
if name of active EG Task (if any), 
if and current menu's type 
)mnon /blk9 /ipredn, icurtm, iactsk (TNL) , mentyp ; 



if record numbers of initial menus known 
if to the BG Controller 
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I 

I 



it 1 ) Status , 2 ) Select , 3)Help, 4)Control 5)Start 
ciomon /blkll /instat , insel, inhelp, incont, instrt; 

cnmon /blkl 7/lumsg , luns tk , lumenu , lut td , lu tsys , lulog; 

it array to store input option information 
iceger*2 inopt (OPTL , ItttlAX) ; 
e jivalence (mentbl ( 1 ) , inopt ( 1,1)); 

iteger*2 pl,p2,p3; 



it Compute initial read index in nentbl 

i(menrec «= instrt) it if initial start menu 

it with control button info 

index=l 

lse index=0PTL*C011L^Jbhl ; it first entry after control button 

ii first record number after last one for input 
:= uenrec+IKGREC+OPTREC ; 

r index+HPvL-1 ; it last index for read into mentbl 
i ec^menrec+IMGREC ; it first record with input options 

read (lumenu' irec , ERR=9999 ) (mentbl (ind) , ind=index, k) 
dex=index+KRL ; 

•1IRL*2; it last entry in mentbl 

ec=menrec+IMGREC+ 1 ; it next record 

read (lunenu ' irec , ERR=9999 ) (mentbl (ind ) , ind= index ,k) 

it all information is read, save menu parameters 
3=inopt(l ,36) ; 

l=p3/256; p2=mod(p3, 256) ; call ascint (p 1 , p2 , p3 ) ; 

)redm=p3; it menu id of predecessor menu 

3=inopt (2, 36) ; 

I=p3/256; p2=mod (p 3 , 256) ; call ascint (p 1 , p2 ,p3) ; 

2ntyp=p3; it menu type 

3=inopt(3,36) ; 

l=p3/256; p2=nod(p3, 256) ; call ascint (pi ,p2 , p3) ; 
inopt=p3; it nunber of input options 

f (mentyp ! =START ) it not initial start menu 

nunopt^nunopt+CGNKAlC; it add permanent buttons 

it convert all ASCII coded integer into integer 
it (coordinates , action codes, annex if necessary) 
t(raenrec == instrt) it start menu 
istart=l 

lse is tart=COt!JIAX+l ; 
end=nunopt ; 

or(i=istart; i<=iend; i=i+l) it for all inp options 
{ 
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# for all coord a act codes 



for(k=7; k<=ll; k=k+l) 

{ 

p3=inopt (k,i) ; pl=p3/25o ; p2=mou (p3, 256 ) ; 

call ascint (p 1 ,p2,p3) ; 

inopt(k,i)=p3; 

} 

lf(p3— ACODEM I p 3 == AC ODEN |p3==AC0DTK) if convert annex 

{ 

p3=inopt (ANNEX, i) ; p l=p3/256 ; p2=nod (p3, 256 ) ; 
call ascint(pl,p2,p3); 
inop t (ANNEX, i)=p 3; 

> 

} 



if return OK 
jlag = OK; 
i turn; 



if if here, process read error 
'99 if lag = NOTOK; 
iturn; 
id 



v****** ******* ************* ********************************** ******** 

* 

4.3.4 U P D E N H 

* 

********* *********************************************** ************* 

Initial release — hn/11 Sept 79 
NA11E : 

updenh 

CALLING PROGRAM: 
mdispl 
FUNCTION : 

Update the enhancement of certain permanent 
control buttons 
INFORMAL INPUT: 

ipenh — specifies any permanent button being reversed 
( index of button input in inopt) 
tnentyp — typ of new menu 
INFORMAL OUTPUT: 

ipenh — 0: new menu is a task menu 

x: specifies the permanent button that is reversed 
(index in inopt) 

ALGORITHM: 

if there is an enhancement 

if old menu-typ = new menu-typ , return 
else reverse old enhancement 
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I 

if no new enhancement is to be made , return 

else reverse new enhancement 

return 






ibroutine updenh 

it Menu Table declaration, number of input options 
)mmon /blkl/mentbl(TBLiIAX) , nunopt; 



it Menu record number of current menu's predecessor, 

// cenu record number of current or saved task menu , 
it name of active CG Task (if any), 
it and current menu's type 
ouimon /blk9/ipredn, icurtr, iactsk(TNL) , nentyp; 



# Index of permanent button (in inopt) 
it that is displayed in reverse mode 
:ommon /fc lk 1 4 / i p e nh ; 

it array containing input option information 
integer*2 inopt (OPTL , INMAX) ; 
equivalence (mentbl( 1 ) , inopt ( 1,1)); 

it if an enhancement exists, check if it has to 
if be reversed back 
if(ipenh != 0) 

{ 

if menu type of current menu 
kode = inopt (CODE , ipenh )-8 ; 

if (mentyp == kode) return if no menu typ change 
else 

call enhanc (ipenh , REVEND) ; 

> 



if if new menu is task or initial menu, clear ipenh 
if else enhance new button 
if (mentyp == TASK | mentyp == START) 
ipenh = 0 
else 
{ 

kode = mentyp+8; it type converted into action 

f or ( i=l ; i<=C0NMAX; i=i+l) it search action code to 

it determine index in inopt 



{ 

j=i; 

if (inopt (C0DE,i) 
> 

call enhanc ( j , REV) ; 



it save index 
== kode) break; 

it reverse button 



code 
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// save 



reversed button index 



ipenh - j ; 

> 

eturn ; 
nd 
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********** * ******* * * * ****** * ********************************** * 



5. PARAMETER BLOCK MANAGER 



‘ *************** * **************************** ******************** 






f Initial release — hn/16 november 79 

* NAME: 

* bgpbn(inx) 

t CALLING PROGRAM: 
f bgcmdrn 

} FUNCTION: 

} update the Parameter Block (PB) 

r save the PB on disc when update is done 

f sends the PB to the Foreground Job 

* INPUT PARAMETER: 

inx - pointer to selected input option in inopt 

* INFORMAL INPUT: 



inopt - info about possible input 
ALGORITHM: 



get annex from inopt to get new parameter 
if (done ) 

save PB on disc 
send PB to Foreground Job 
else 

store parameter in PB 






subroutine bgpbm(inx) ; 

:onnon /blkl /mentbl (TELMAX) , numopt ; 
Integer *2 inopt (CPTL , INMAX) ; 
equivalence (mentbl ( 1 ) , inopt (1,1)); 

y-H-H -H H- modify PB 

return; 

end 
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******************************************** ***************** ****** 



6. LOG MANAGER 



l ************************************************ ****************** 



f Initial release — hn/I6 novetnber 79 



r N'AIIE: 

f bglogm(index) 

if CALLING PROGRAM: 
f bginpm 

t FUNCTION: 

f log the operator's input action on a disc file 

'/ INPUT PARAMETER: 

t index — index to input in array inopt 

'/ INFORMAL INPUT: 



'/ inopt - contains info about possible inputs 

! t ALGORITHM: 



if get plain English command from inopt 

write coonand to disc file 'inplog.dat' on 
if logical unit LULOG 

It 






subroutine bglogm(index) ; 

:onrnon /blkl /mentbl (TBLLLAX) , nurnopt; 

:onmon /blkl 7/lumsg, luns tk, lumenu,lut td , lutsys , lulog ; 
lnteger*2 inopt (OPTL , INMAX) ; 
equivalence (mentbl ( 1 ) , inopt (1,1)); 

vrite( lulog, 100) (inop t ( i , index) , i=2,6) ; 

LOO f ormat (5a2) ; 



return; 

end 
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******* * ********************* * A *********** ******* A ****************** 

* 

7. MESSAGE MANAGER 

* 

********************************************************************* 



Initial release — hn/11 Sept 79 
NAME : 



bgmsgni(itype) 



CALLING PROGRAM: 

EXECUTIVE — the very first tine (requested by RT-11) 
RT-11 — bgnsgm is to be scheduled using itiner call 

FUNCTION : 



l 

i 

(■ 

it INPUT 

t 

t 

» 

It 

It 



it 

it 



Update the enhancement of the ACKNOWLEDGE button 
Process requests to erase/display messages (operator input 

related or warning messages) initiated by the BG Controller 
or any EG Task 

Erase/display messages on the TT Display 

save message stacks on disc/ read msg stacks from disc 

PARAMETER: 

itype — specifies the action requested by the 
scheduling program 
NOACTN - dummy call from executive 
EINPUT - Erase input related message 
EWARN - Erase warning message 
DINPUT - Display input related message 
DWARN - Display warning message from Controller 
DWARNT - Display warning message from Task 



it INFORMAL INPUT: 

it msgstk - warning message stack 

it msgstr - read pointer for stack 

it msgstw - write pointer for stack 

It inpmsg - input related message 

it iwmsg - warning message initiated by a BG Task 

it msgw - warning message initiated by BG Controller 

it tnsgwpr - read pointer for msgw 

it msgcnt - counter for warning messages 

it mgstsw - points to msg stack half to write into 

it INFORMAL OUTPUT: 

it same as informal input 



it NOTE: 



it This is a completion routine and will not be 

it interrupted by any other BG program. 

it ALGORITHM: 

it if NOACTN , return 

it if EINPUT 

it erase message field, return 

it if EWARN 



it 

it 

it 

it 

it 

it 



display any waiting warning message 
update ACKNOWLEDGE enhancement 
return 
if DINPUT 

display message, return 
if DWARN or DWARNT 
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display warning message or save it on stack 

update ACKNOWLEDGE enhancement 

return 






ibroutine bgmsgn(itype ) ; 
)mmon /blklO/killf 1, inf lag; 



if no action on dummy call from EXECUTIVE 
f(itype == NOACTN) return; 



if accept no input when displaying 
nflag-NOACPT; 



if Erase input related message 
f (i type == E INPUT ) 

{ 

call einnsg; 

} 

if Erase warning message 
•lse if (i type == EWARN) 

{ 

call ewmsg; 

> 



if Display input related message 
2 lse if(itype == D INPUT) 

{ 

call einnsg; 
call dinnsg; 

} 

if Display warning message 
slse if(itype == DWARN | itype == D WAR NT ) 
{ 

call dwnsg(itype) ; 

} 

it accept input 
inf lag=ACCEPT; 



return; 

2nd 



?********************************************************************* 

It * 

'/ 7.1 E I N M S G 

t * 

f/********************** *********** **************** ************** ****** 

It 

It Initial release — hn/12 Sept 79 
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NAME : 

einusg 

CALLING PROGRAM: 
bgmsgm 
FUNCTION: 

Erase any displayed operator input related 
message on the display 
ALGORITHM: 

position display cursor 
clear line (ESC K) 






ubroutine einmsg; 

oirraon /blkl 7 /lumsg , lums tk , lumenu , lut td , lutsys , lulog ; 

# command string to erase input related message 
.ogical*l erase! (12) ; 

# EEL ESC & a 2 1 r 2 1 C ESC K 

lata erase! /07, 2 7, 38, 9 7, 50, 45,114,50,49,67,27,75/; 

.hp=iwri tw(6 , erase i , 0, lut td) ; 



return; 

2 nd 



ifit*********************** *****&*** ********************** ******** 

f * 

'! 7.2 E V. K S G 

? * 

^******** ************************************************************* 

i 

9 Initial release — hn/12 Sept 79 
? NAME: 

't ewnsg 

9 CALLING PROGRAM: 

9 bgmsgm 

9 FUNCTION: 

9 Erase the display of a warning message 

9 Display any waiting warning message 

Update the enhancement of ACKNOWLEDGE button 
9 INFORMAL INPUT: 

msgstk - message stack 
nsgstr - read pointer for stack 
9 msgstw - write pointer for stack 

9 msgcnt - counter for warning messages 

9 mgstsw — stack switch, indicating into which stack hair 

9 a new message has to be stored 

9 inopt - operator input option information 

9 INFORMAL OUTPUT: 
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I 



sane as informal input 
ALGORITHM: 

if no message on stack 
erase message display 
return 

while there is message text , do 

if read pointer in upper half of stack 
get next characters 
if ENDOFK, break loop 
else 

if no stack saved on disc 

* move lower half to upper half of stack 

else 

' read stack from disc into upper half 

f update pointer to stacks on disc 

1 1 

( 

t update message counter 

'/ if no messages on stack 

! t stop blinking ACKNOWLEDGE button 

! t display message 

'/ return 

it 






subroutine ewmsg 

it Menu Table declaration, number of input options 
common /blkl /ment bl (TBLMAX) , nunopt; 

it Message stack, stack read and write pointer 
logical*l msgstk(MGSTLl) ; 
common /blkfi/nsgs tk, msgstr, msgstw; 



it number of warning messages to be displayed 
it index to warning message stack half to write into 
it first message stack record number on disc file 
it last message stack record number on disc file 
common /blkl2/msgcnt , mgstsw, mfrec, mlrec; 

common /blk 1 7/lunsg, luns tk, lumenu , lut td , lutsys , lulog ; 

it temporary storage of message text 
logical*l mbuff(MSGL); 

it array to structure the message stack 
it into upper and lower half 
logical*l mstk(MGSTL2, 2) ; 
equivalence (msgstk(l) , mstk(l, 1) ) ; 

it array containing input option information 
integer*2 inopt (OPTL, INMAX) ; 
equivalence (mentbl (1 ) , inopt ( 1,1)); 
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it command string to erase warning message 
»gical*l erasew( 12 ) ; 

«ita erasew/C 7, 27, 38, 9 7, 50, 50, 114, 50, 49, 6 7,2 7, 7 5/; 



it if only 1 warning message exists, erase it 
(msgcnt <= 1) 

{ 

ihp =iwr itw(6,erasew,0,luttd); 

msgcnt = 0; 

return; 

> 



it copy a warning message from msg stack into msg buffer 
it if needed msg stack is saved on disc, read it and 
it continue to copy, 
buf f x=2; mbuf f ( 1 )=36 ; it 
hile(mbuffx <= MSGL) 

{ 

it if msg on stack in memory 
if (msgst r <= MG STL 2) 

{ 

nbuf f (mbuf f x) = msgstk (msgst r) ; 
msgstr = msgstr+1; 

it stop if message complete 
if (mbuf f (nbuf fx) == ENDGFM) break; 
mbuf f x=mbuf f x+1 ; 

> 



it warning message either in lower half of message stack 
it or there is a msg-stack saved on disc 

else 

{ 

it if no stack on disc 

it copy lower stack half into upper half 
if(nfrec == 0) 

{ 

for (i = l; i<=I!GSTL2 ; i=i+l) 
mstk(i,l) = mstk(i,2); 
mgstsw = 1; 

> 

it if stack on disc, read it into 
it upper stack half 

else 

{ 

read (lumsg'mf rec , ERR= 9999 ) (nstk(i, l),i=l,60) 
if(mfrec == rnlrec) 

{ 

mfrec = 0; 
mlrec = 0; 

> 

else 

mfrec = mfrec+1; 
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> 



if reset read pointer in msg stack 
msgstr = 1; 

> 



if update counter for warning messages 
if if no more messages waiting, stop blinking 
if of ACKNOWLEDGE button 
sgcnt = msgcnt-1; 
f(msgcnt < 2) 

{ 

msgstr = 1; 
msgstw = 1; 
mgs tsw = 1 ; 

for (i = l ; i<=CONMAX ; i=i+i) 

{ 

if (inopt (CODE,i) == ACCDAC) 

{ 

call enhanc(i ,BLKEND) ; 
break ; 

> 

> 

> 

// write message, clear rest of line 
hp=iwritw(6,erasew,0, luttd) ; 
buff (mbuffx)=0; if ASCII NUL 

words=mbuf f x/2 ; if number of words 

hp=iwritw(nworus ,mbuf f ,0, luttd) ; 
eturn; 



if if read error 
999 continue 
eturn; 
nd 



************************** ********* ************* ************* ******** 

* 

7.3 D I N M S G 

* 

********************************************************************* 

Initial release — hn/26 Sept 79 
NAME: 

dinmsg 

CALLING PROGRAM: 
bgmsgm 
FUNCTION : 

display new input related message 
NOTE: 
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the first character in a message 
will not be displayed 
INFORMAL INPUT: 

inpmsg - input related message 
inopt — info about operator input options 
i ALGORITHM: 

position cursor 
display new message 






ifififififiHfififififiHfifififif 



iHlihtififiUtifiHfititiHHt 



ibroutine dinmsg; 



if Menu Table declaration, number of input options 
)nmon /bllcl /nentbl (TELilAX) , numopt; 

)gical*l inpmsg (MSGL) , iwmsg(MSGL) ; 

Dranon /blk5/inpmsg,iwr.sg; 

anmon /blkl 7/lurasg, lunstk, lunenu , luttd, lutsys ,lulog; 

if array containing input option info 
nteger*2 inop t(OPTL, INMAX) ; 
quivalence (mentbl(l), inopt(l,l)); 
ogical*l sutext(2); 
ata swtext/36 , 15/ ; 



if write the message, any old one has already been 
if erased by einr.sg, the cursor is positioned 
hp=iwritw( 1 ,swtext ,0, luttd) ; 
np=iwritw(27, inpmsg, 0, luttd) ; 
eturn; 
nd 



********************** ********* a************************** ****** **** * 

* 

7.4 D W M S C 

* 

********************************************************************* 



Initial release — hn/26 Sept 79 
NAME : 

dvnsg(itype) 

CALLING PROGRAM: 
bgmsgm 
FUNCTION: 
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f display a warning message or 

store it on stack 

if update enhancement of ACKNOWLEDGE button 

INPUT PARAMETER: 

itype - specifies the message originator 
f; DWARN - msg from BG Controller 

DWARNT - msg from BG Task 
INFORMAL INPUT: 

msgstk - message stack 

nsgstr - read pointer for stack 

msgstw - write pointer for stack 

msgcnt - counter for warning messages 

mgstsw - stack switch, indicates into which half of 

the stack (upper , lower ) a new message has to 
be stored 

msgw - warning message from BG Controller 
msgwpr - read pointer for msgw 
iwnsg - warning message from BG Task 
inopt - input option information 
INFORMAL OUTPUT: 

same as informal input 
ALGORITHM: 

Store message from either controller or task into buffer 
If no message being displayed 
display new message 
reset stack pointer 

else 

copy inesage from buffer to stack 
if stack overflow 

write stack onto disc 
update pointers and flags 
increment message counter 

if two messages present, start blinking of ACKNOWLEDGE 
return 



it it if if if if it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it 



ubroutine dwmsg (itype) ; 

it Menu Table declaration, number of input options 
ommon /blki /mentbl (TBLMAX) , nuraopt; 



it Storage for operator input related messages 
it and warning messages from tasks 
ogical*! inpmsg(MSGL) , iwmsg(MSGL) ; 
ommon /blk5/inpmsg, iwrasg; 

it Storage for 

it warning messages from BG Controller, 
it read and write pointer for msgw 
ogical*! msgw(MSGWL) ; 
ommon /b 1 k 6 /ms gw , ms gwp r , ms g wpw ; 
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if Message stack, stack read and write pointer 
c,ical*l nsgstk(MGSTLl ) ; 
dinon /blk8/msgstk, msgstr, msgstw; 



if nunber of warning messages to be displayed 
if index to warning message stack half to write into 
if first message stack record number on disc file 
if last message stack record number on disc file 
rjnon /blkl2/msgcnt , mgstsw, mfrec, mlrec; 

nmon /blkl 7/lumsg, lumstk, lumenu, luttd, lutsys, lulog; 

if temporary storage for messages 
gical*l mbuf f (hSGL) ; 

if array to structure the message stack 
if into upper and lower half 
gical*l mstk(KGSTL2,2); 
uivalence (msgstk(l), mstk(l,l)); 

if array containing input option information 
teger*2 inopt (OPTL , INMAX ) ; 
uivalence (mentbl ( 1 ) , inopt (1,1)); 

// array containing command string to position 
if cursor and clear line 
gical*l displw(12) ; 

ta displw/0 7,27, 38, 97, 50, 50, 114, 50, 49, 67, 2 7, 75/; 

it message generated by 3G Controller 
(itvpe == DUARN) 

{ ' 

mbuf f (1 )=36 ; it 

mbuf f (2) =15 ; it Control 0 

for(i=3; i<=HSGL; i=i+l) 

{ 

mbuf f (i) = msgw (msgwpr) ; 
msgwpr = msgwpr+1; 
if (msgwpr > HSGWL) msgwpr=l ; 
max = i; it save index 

if (mbuf f (i) == ENDOFM) break; 

> 

> 

it message generated by SG Task 
Lse 
( 

mbuf f ( 1 ) =36 ; it 
nbuff(2)=15; it Control 0 
for (i=3; i<-MSGL; i=i+l) 

( 

max = i ; it save index 
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mbuff (i) = iwnsg(i); 
if (inbuff (i) == ENDOFM) break; 

> 

> 

if display new message if it is the first one 
(msgcnt == 0) 

{ 

ihp=iwritw(6, displw, 0 , lut td) ; 
nwords=Tnax/2; 

mbuff (max)-O; it ASCII NUL 

ihp=iwritw(nwords , mbuff ,0, luttd) ; 
msgstr = 1; 
msgstw - 1; 
mgstsw = 1; 

} 

it copy message to stack (upper or lower half) 
se 
{ 

for (mbuff x=l ; mbuf f x<=nax; mbuf f x=ubuf f x+1) 

{ 

it no overflow of message half 
if (msgstw <= MGSTL2) 

{ 

ms tk(msgs tw, mgstsw) = mbuf f (mbuf fx) ; 
msgstw = msgstw+1; 

> 

else 

{ 

if if upper switch to lower half of stack 
if(mgstsw == 1) 
mgstsw = 2 
else 

if upper and lower half overflown 
it write lower half onto disc 

{ 

if(mfrec -= 0) 

{ 

mf rec = 1 ; 
mlrec - 1; 

> 

else 

mlrec = nlrec+1; 

writedurnsg'mlrec ,ERR=9999 ) (instk (i , 2 ) , i=l , 60) 

> 

msgstw = 2; 

mstk(l ,ngstsw)=mbuff (mbuff x) ; 

} 

> 

> 



# update message counter and enhancement 
gent = ir.sgcnt+1 ; 
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(msgcnt == 2) 

{ 

for(i=l; K-COWIIAX; i=i+l) 

{ 

if ( i nop t (CODE , i ) == ACODAC) 

{ 

call enhanc(i , BLKBEG) ; 
break; 

> 

> 

} 

eturn; 

it write error 
999 continue 
eturn; 
nd 
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tiENU EDITOR PROGRAM 



/ ( ***^* ******************************************************* ******* 

* 

!1 E t! U E D 

* 

J jcicicicjc'kjc ic'kX &&&&&&&& 

/ 

initial release — hn/1 Oct 79 
i NAME : 

menued 

FUNCTION: 

create new r.enus 
update existing menus 
delete menus 

print menu-id's of all menus stored on the menu file 
CALLINC PROCRAM: 

RT-11 

INPUT: 

text file with all needed information having the format 
described below. 

OUTPUT: 

- text file or 

- new menu on disc or 

- file with all menu id's 

NOTES : 

This is an off-line program. 

It interprets a standard input in certain format. 

Each @ (end of text), or ',' (end of integer), or 
| (end of line) may be followed by comments. 

Input may be files or any input device. Each line 
of input has to be in the following formats 
( line number ): 

(1) : function 

2: create - create a new menu 
3: update - update an existing menu 
1: delete - delete an existing file 
8: initm - create initial start menu 

The following formats will depend on the functions. 

for all input files: 

(1) : function code 

for delete, create, update 

(2) : menu-id 

for create, update 

(3) : predecessor menu-id 

(4) : menu-type 

(5) : menu title 
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(6) : number of question/text blocks 

l 

for each question/text block: 

: start-block code (126) 

: number of responses 
: location of buttons 
: size of buttons 
: text 



for each response: 

: start-response code (127) 

: label (1 characters) 

: plain-English command for logging (10 characters) 
: action code 
: annex 






ef ine 


LUR 


9 


it 


logical unit for read 


ef ine 


LUU 


6 


it 


logical unit for write 


ef ine 


LUMR 


7 


it 


logical unit for menu file read 


ef ine 


LUMW 


8 


it 


logical unit for menu file write 


ef ine 


LUTTD 


4 


it 


logical unit display 


ef ine 


NDREC 


20 


it 


number of directory records 


ef ine 


NIREC 


4 


it 


max 4 records for image 


ef ine 


NOREC 


2 


it 


max 2 records for input options 




if func 


tion 


codes from input file 


ef ine 


PREDM 


0 


it 


find a menu id in directory 








it 


( id in ipredm) 


ef ine 


DELETE 


1 


it 


delete menu id in directory 


ef ine 


CREATE 


2 


it 


insert a new menu id in directory 


ef ine 


UPDATE 


3 


it 


find a menu id in directory 








it 


(id in menuid) 


ef ine 


sue CM 


4 


it 


find menuid of successor menu 


ef ine 


IKITM 


8 


it 


create the initial menu 





it code for 


button 


locations 


ef ine 


LOCA 1 


it 


button row below the text 


ef ine 


LOCB 2 


it 


button row beside text 


ef ine 


LOCC 3 


it 


button collumn beside text 





// symbolic names 


for fixed margins 


ef ine 


LEFTM 


12 


it 


left margin of menu field 


ef ine 


LMARG 


20 


it 


lower margin of menu field 




it right 


margins 


for button rows/collumns 


ef ine 


RHARGA 


75 


it 


button row below text 


ef ine 


RMARGB 


75 


it 


button row beside text 


ef ine 


R1IARGC 


75 


it 


button collumn beside text 
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fine 


DELTA 


2 


it 


fine 


II! AG EL 


2432 


# 


fine 


IMOPTL 


15 


# 


fine 


INtlAX 


37 


// 


fine 


IBUFFL 


80 


it 


fine 


ENDCFI 


8316 


it 


fine 


ENDOFR 


32332 


it 


fine 


TEXT 


15 


it 


fine 


BUTT 


14 


it 


fine 


MOCH 


0 


it 


fine 


S BLOCK 


126 


it 


if ine 


SRESP 


127 


it 




it symbolic input 


fine 


DONE 


1 


it 


if ine 


NODONE 


0 


it 




it ASCII 


character 


if ine 


ESC 


27 


it 


if ine 


CONTRO 


15 


it 


if ine 


CONTRN 


14 


n 

ir 




it input 


buffer 





no change of mode 



CONTROL 0 
CONTROL N 



iteger*2 ibuf f (IBUFFL) ; 

it storage for menu-id 
iteger*2 nenuid(lO); 



it 



storage for menu-id to lookup in directory 
iteger*2 ipredm(lO) ; 



it 



storage for image 
iteger*2 image (IllAG EL) ; 



iteger*2 



storage for input options 
inop t (INOPTL , INMAX) ; 



pointer 

imagep 

inoptp 



it next free entry in image 
it next free entry in inopt 



iteger*2 
iteger*2 

it next line to write on display 
ateger*2 lincnt; 



it 

:iteger*2 



display mode 
mode ; 

function code 
if unct ; 



nteger*2 

nteger*2 idold(lO); it tnenuid to find in directory 
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:eger*2 idnew(lO); 



// raenuid to store in directory 



# 

ceger*2 

teger*2 

teger*2 

teger*2 

teger*2 

teger*2 

teger*2 

teger*2 

teger*2 

teger*2 

teger*2 

teger*2 



menu parameter 
nblock; if 

nbutt; if 

iloc; if 

isize; if 

mentyp; if 

ipredr; if 

ispace; if 

irec,param, icha 
mr (21 , 50) ,ptr ; 
rowcur; if 



highr ; 
ibseq (7 ) ; 



number of text/question blocks 
number of buttons for a block 
location of buttons in a block 
size of buttons 
menu type 

record number of predecessor menu 
space lines between text blocks 

r; 

if temporary storage for menuid,rec if 
row the cursor is in 
highest record number created 
sequence of drawing permanent buttons 
entries are index to inopt 



teger insave, irsave, iwsave; if file descriptor from open 

nnon /blkl / image , imagep , inopt , inop tp ; 

nmon /blk2/lincnt ; 

nmon /blk3/mode; 

ranon /blk4/menuid , ipredm; 

omon /blk5/ibuff; 

nnon /blk6/nblock ; 

nmon /blk7/ nbutt , iloc, isize ; 

nmon /blk8/nentyp , ipredr; 

nnon /blk9/ispace ; 

nmon /b lk 1 0 / rcwcur ; 

nnon /blkl 1 /irsave, iwsave; 

nnon /blkl 2 /idol d, idnew; 

nmon /blkl 3/tnr , ptr ; 

nnon /blkl4/highr; 

nnon /blkl 5 /if unc t ; 

nnon /blk 16/ ibseq; 

bseq ( 1 ) = 1 ; 
bseq (2)=2; 
bseq (3)=4; 
bseq (4)=7 ; 
bseq(5)=5; 
bseq(6)=6; 
bseq(7)*=3; 



if specify logical unit numbers and 
if open nenufiles for read/write 
if the old menu file 'menufile' is read and 
if it is written onto a temporary menu file 'menuout'.^ 
if after all is done, 'nenuout' is copied to 'nenufile'. 
ill setf il (LU11R , 'menu file '); 
ill setf il(LUMW , 'menuout '); 
ill setf il(LUR, 'infile '); 

:save=LUMR; 
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,ave=LUflW; 



// preset inop t , image ,menuid, ipreclm, ichar, nr 
It inagep , inoptp , lincnt , ispace 
r(i-l;i<-litt!AX;i“i+l) 

or (j=l ; j<=INOPTL ; j=j+l) 
inopt ( j , i) = 12336 ; // 'O'. 'O' 



r(i=l ; i<=IMAGEL ; i=i+l ) 
image (i) =8240; § SP.'O' 

:r(i=l ;i<=10;i=i+l) 

ienuid(i)=8240; // SP.'O' 

predn(i ) =8240 ; if SP.'O' 



:har=8256 ; if SP.'@' 

:r=l ; 

>r(i=l;i<=50;i=i+l) 

{ 

for (j=l; j<=21 ; j=j+l) 
nr(j,i)=0; 

> 

Lncnt=0; 
jioptp^l ; 
magep=l ; 
space=0 ; 
owcur=0 ; 



it read function code 
ead(LUR, 1000) ifunct; 

000 format ( i 3 ) ; 

it create initial menu 
f (ifunct == INITM) 
call initm 



lse 

{ 

it delete,create, update 
it save menu- id 
read (LUR , 100 ) ibuf f ; 

100 format (80al) ; 

i=i; 

while(i<=10 & ibuf f (i) !=ichar) 

{ menuid(i)=ibuf f (i) ; i=i+l ; ) 

it delete 
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if (if unc t == DELETE) 
call delete 



else 

{ 

it creat e , update 

if (if unc t == CREATE | ifunct « UPDATE) 

{ 

read(LUR, 100) ibuff; 

i*l; 

while(i<=10 & ibuf f (i) !=ichar ) 

{ ipredn(i)=ibuf f (i) ; i=i+l;> 
param=PREDM; 

call setmen (param, irec ) ; 



ipredr=irec ; 
if read menu type 
read (LUR , 1000 ) mentyp; 
call setmen (ifunct , irec) ; 
call update(irec) ; 

> 



> 

> 

it close all files 
iwind LUKR; 
swind LUtiW; 
iwind LUR; 

id 



******************************************************************* * 



SETMEN 

********************************************************************* 

Initial release — hn/2 Oct 79 
NAME : 

set men (if lag, irec) 

CALLING PROGRAM: 
menued 
FUNCTION: 

prepare store for new and old nenuid 
and set menuid into mr 
INPUT PARAMETER: 
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it if lag — 

§ SUCCM - find successor menu in directory 

// CREATE - insert a menu id in directory 

j; UPDATE - find a nenu id in directory 

PREDM - find predecessor menu id in directory 
5 OUTPUT PARAMETER: 

irec — index of nenuid in nr 
), INFORMAL INPUT: 

■ menuid - menu id to create or update 

ipredn - menu id to find in directory 
i ALGORITHM: 

reset temporary id stores 
copy id's 

save old and new m.enuid in nr, return index 



: it it # // if // if // if if if if if if if if It it it if it it it it it it it it it it it if it it it it it it it it it it il il if if if it il it il il if il # it il if if it if if II ?/ il if 



ibroutine setnen(if lag, irec) ; 



iteger*2 if lag, irec; 
iteger*2 p 1 , p 2 ; 

)timon /blk4/menuid, ipredn; 
iteger*2 nenuid(lO); 
iteger*2 ipredm(IO); 

if store for old and new nenuid 
onimon /blkl2/idold,idnew; 
nteger*2 idold(lO); 
nteger*2 idnew(IO); 



it preset temporary storage for id's 
or(i=l; i<=10; i=i+l) 

{ 

idold(i)=8240; if SP.'O' 

idnew(i)=8240; 

> 

it store old and new menuid 's 
f (if lag==SUCCM | if lag==PREDM) 

{ 

for(i=l ; i<=10; i=i+l ) 

{ 

idold(i)=ipredm(i) ; 
idnew(i)=ipredr.i(i) ; 

> 

> 

lse 

{ 

f or (i=I ; i<=10; i=i+l) 

{ 
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idold(i)=menuid(i) ; 
idnew(i)=nenuid(i) ; 
> 



it save nenuid in nr 
.1 savenr(irec) ; 



i:urn; 

1 



k *************************** * **** & *** * * ************ A & ***** * ****** A * * 



C P F I L E 

******************************************************* -a * ********** * 



Initial release — hn/6 novenber 79 
SAME: 

cpf ile 
FUNCTION : 

copy the file nenuout (up-to-date) to nenufile 



iti}iiitititititititititiiitilifititititititititlt!tititttitltltitlti}ltitititititititltilitititi>iiititititititliititititititltitiHt 



broutine cpfile; 
teger*2 rbuf f (544); 

11 cofbck; it close and open files 

It set exit for END-OF-FILE condition 
(terror (104) !=0) goto 7777; 
ile(l>0) it do until done 

{ 

read (LUMR, 100) (rbuf f (i) , i=l , 544 ) ; 
write (LUliV.", 100) (rbuf f (i) ,1=1,542) ; 

100 f ornat (544al ) ; 

> 

77 return; 
d 



******************************************************************** 

C 0 F F W D 

******************************************************************** 

Initial release — hn/31 October 79 
NAME: 

cof fwd 
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! 



//FUNCTION : 

close nenufile and nenuout 
open these files 

read from nenufile, write to nenuout 



t ALGORITHM: 

rewind files 

connect logical unit number and file 



i 

i # # tt it it it it it it it it it it if it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it if it it it it 



s broutine cof f wd ; 

onmon /blkl 1 /irsave, iwsave ; 
;iteger irsave, iwsave; 



jwind LUIIR; 
jwind LUMW; 

:save=LUMR ; iwsave=LUMW ; 



ill setf il(LUHR, 'menuf ile '); 
all setf il(LUIiW, 'nenuout '); 



aturn; 

ad 



******* ********************** ********************************** ****** 



C 0 F B C K 

********************************************************************* 



Initial release — hn/31 October 79 
NAME: 

cof bck 
FUNCTION: 

close menuf ile L nenuout 

open these files, read from nenuout, write to nenufile 
ALGORITHM: 

rewind files 

connect logical unit and filenames 






nbroutine cofbck; 

omnon /b lk 1 1 / i r s a ve , i ws ave ; 
nteger irsave, iwsave; 

ewind LUMR; 
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rvind LUKW; 

i 3 ave=LUiiR; iwsave=LUMW ; 



ell setf il(LUMR, 'menuout ' ) ; 
ell setf il(LUHW, 'nenuf ile '); 



rturn; 

Ed 



************************************************ ******* ************* 

I i! I T M 

******************************************************************** 

Initial release — hn/I2 oct 79 
NAME: 

ini tm 
FUNCTION: 

generate menu records for the initial menu with permanent 
buttons and store them behind the directory records. 

CALLING PROGRAM: 
nenued 






ibroutine initm; 



innon /blkl /image , imagep , inopt , inoptp ; 

Dirnnon /blk4/menuid , ipredm; 

:nnon /blkI4/highr ; 

Dmmon /blkl6/ibseq ; 

iteger*2 highr; if first record number of last menu 

iteger*2 ibseq (7) ; 

iteger*2 image (IMAGEL ) , imagep , inopt (INOPTL , INMAX) , inoptp ; 
iteger*2 menuid(IO), ipredm(IO); 



ateger*2 pl,p2,p3,p4,ir,ic, irec, label (4 , 7) ; 
iteger*2 11 (6) , 12(6) ,13(6) ,14(6) , 15(6) ,16(6) , 17 (6) ; 
ateger*2 rbuf f (544) ; 
luivalence (rbuff(I), inopt(I,I)); 



ata label ( 1,1) /8 0 / ; if P 
ata label (2 , 1 ) / 8 2 / ; if R 
ata label (3, 1) /32/; if SP 
ata label(4,I)/49/; if I 



ata label (1,2) /80/ ; if P 
ata label(2 , 2) /S 2 / ; if R 



144 



L cl 


label(3 , 2) / 3 2 / ; 


it 


SP 


ta 


label(4,2) /50 / ; 


# 


2 


ta 


label (1 » 3 ) / 6 5 / ; 


# 


A 


ta 


label (2 , 3) /6 7 / ; 


it 


C 


ta 


label (3, 3) / / 5 / ; 


if 


K 


ta 


label(4, 3) /3 2 / ; 


if 


SP 


ta 


label(l,4)/S3/; 


if 


s 


ta 


label (2 , 4) /S 4/ ; 


if 


T 


ta 


label(3,4) /6 5 / ; 


if 


A 


ta 


label(4,4) /84 / ; 


if 


T 


ta 


label ( 1 , 5) /8 3/ ; 


if 


S 


ta 


label (2 , 5) /69/; 


if 


E 


ita 


label (3 , 5) / 7 6 / ; 


if 


L 


L ta 


label (4 , 5 ) / 3 2 / ; 


if 


SP 


tta 


label ( 1 , 6) /72/ ; 


Jl 

7 .* 


H 


ita 


label (2 , 6 ) / 6 9 / ; 


Jt 

it 


E 


ita 


label (3,6) /76/ ; 


if 


L 


ita 


label (4 , 6 ) /80/ ; 


if 


P 


ita 


label (1 , 7 ) / 6 7 / ; 


it 


C 


ita 


label(2,7)/S4/; 


if 


T 


ita 


label(3, 7) / 8 2 / ; 


it 


R 


ata 


label (4 , 7 ) / 7 6 / ; 


Jl 

It 


L 


ata 


ll(l)/'p '/; 






ata 


11(2) /'PR'/; 






ata 


11 (3) /'IN' /; 






ata 


11(4)/ 'T '/; 






ata 


11 (5) /'CP/ / ; 






ata 


11 (6) /'Tl ' / ; 






ata 


12(l)/'r '/; 






ata 


12(2) /'PP// ; 






ata 


12(3) /'IN'/ ; 







ata 12(4)/ 'T '/; 
ata 12(5) / 'CP//; 
ata 12(6) /'T2'/; 

ata 13(1) /'a '/; 
ata 13(2)/'AC'/; 
ata 13(3) /'K1I'/; 
ata 13(4)/'OW'/; 
lata 13(5) /'LE'/ ; 
lata 13(6) /'DG' / ; 

lata 14(l)/'s '/; 
lata 14(2) /'ST'/; 
lata 14(3) /'AT'/; 
lata 14(4) /'US'/ ; 
lata 14(5)/' '/; 
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d.:a 14(6)/' '/ 

d:a 15(1) /'e '/ 
dta 15(2)/'SE'/ 
dta 15(3) /'LE'/ 
dta 15(4)/'CT'/ 
dta 15(5)/' '/ 

dta 15(6)/' '/ 

dta 16 ( 1 ) / ' h '/ 
dta 16(2) /'HE'/ 
dta 16(3) /'LP' / 
dta 16(4)/' '/ 

eta 16(5)/' '/ 

eta 16(6)/' '/ 

eta 17(1 ) /'c '/ 
ta 17(2)/' CO'/ 
.ta 17(3)/' HT'/ 
uta 17(4) /'RO ' / 
tta 17 (5 ) /'L '/ 
ita 17(6)/' '/ 



it prepare 'nenufile' by writing 21 records 
it of 542 bytes to it (Unix will add CR/LF 
it thus create 544 byte records) 

It These records cover the menu file directory 
it The record will be filled with ASCII '0' 

it write 21 records 
or ( i= 1 ; i<=21 ; i=i+l ) 

{ 

write (LUMR, 7000) (rbuff(k) ,k=l,542); 

7000 format (542al ) ; 

} 



if close menufile and open again 
awind LUMR; 

all setfil(LUMR, 'menufile '); 



it set menuid to 'startmenu' 
enuid(l)=8307 ; 
enuid(2) =8308 ; 
enuid(3)=8289; 
enuid(4 )=8306 ; 
enuid(5)=8308; 
enuid(6 )=8301 ; 
enuid(7)=8293; 
enuid(8)=8302; 
enuid(9)=8309; 
enuid(10)=8224; 
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it place rcenuid and record nunber into directory 
r l CREATE; 

C£ 1 setnen(p 1 , irec) ; 

// set entries for other initial controller menus 

// into the menu directory 

// STATUS, SELECT, HELP, CONTROL 
f.! (i=l ;i<=10;i=i+l) 
aenuid(i)=8224; // SP 

// 'statusO' 
niuid(l ) -8307 ; 
mauid(2)=8308; 
rcnuid(3) =£289 ; 
irnuid(4)=8308; 
cnuid(5)=8309 ; 
nnuid(6)=830/ ; 
cnuid( 7 )=8240 ; 

(11 setmen(p 1 , irec) ; 

// 'selectO' 
rnuid( 1 ) =830 7 ; 
i*nuid(2)=8293; 
imuid(3)=8300; 
anuid(4)=8293; 

>nuid(5)=8291; 
anuid(6)=8308; 
anuid(7)=8240; 
all setmen(p 1 , irec) ; 

// 'helpO' 
enuid ( 1 ) =8296 ; 
enuid(2)=8293; 
enuid(3)=8300; 
ienuid(4) =8304 ; 

•enuid(5)=8240; 
ienuid(6)=8224; 
lenuid (7 ) =8224 ; 

:all setmen(pl ,irec) ; 

// 'controlO' 
nenuid(l)=8291; 
nenuid (2) =8303 ; 
nenuid(3) =8302; 

.ienuid(4)=8308; 

Tienuid(5)=8306; 
iienuid(6)=8303; 
nenuid(7)=8300; 
menuid(8) =8240 ; 
call setir»en(p 1 , irec) ; 



call updmr; 
call initini; 



// generate image to initialize TT Display 



i/ set label, log connand, button coordinates and 
// action code into inopt 
for (i = l ; i<=6 ;i=i+l ) '/ label 

{ 

inopt (i , 1 )=11 (i) ; 
inopt(i,2)=12(i) ; 
inopt(i,3)=13(i) ; 
inopt(i ,4)=14(i) ; 
inopt(i,5)=15(i) ; 
inopt(i,6)=16(i) ; 
inopt (i , 7) =1 7 (i ) ; 

> 



// coordinates of buttons 
inopt(8, 1 ) =3 ; 
inopt(10, 1 )=1; 
inopt(8,2)=7 ; 
inopt ( 10 , 2) =5 ; 
inopt (8 , 3) =23 ; 
inopt ( 10 , 3) =21 ; 
inopt (8 , 4) =1 1 ; 
inopt ( 10 ,4) =9 ; 
inopt (8 , 5) =1 9 ; 
inopt ( 10 , 5) =1 7 ; 
inopt (8, 6) =2 3; 
inopt (10,6)=21 ; 
inopt(8, 7 ) =15 ; 
inopt( 10, 7 ) = 1 3 ; 

# action codes 
inopt ( 1 1 , 1 ) =7 ; 
inopt ( 1 1 , 2) =8 ; 
inopt (1 1 , 3 ) =9 ; 
inopt (11 , 4) =10 ; 
inopt ( 1 1 , 5) =1 1 ; 
inopt (11,6)=12; 
inopt(ll , 7 ) = 1 3 ; 

if set left and right bounds 
Eor(i=l ; i<=7 ;i=i+l ) 

{ 

if(i==3) It acknowledge 

< 

inopt (7 , 3) =10 ; 
inopt (9 , 3)=15 ; 

> 

else 

{ 

inopt(7 ,i)=l ; 
inopt(9,i)=6; 

> 

> 
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it score image for buttons and label 
p 1=2 ; p 2-TEXT; 
for (1=1 ; i<-7 ; i=i+l ) 

{ 

inoptp=ibseq (i ) ; 
call draw; 

ic=inopt ( 7 , inop tp )+l ; it collum of label 
ir=inopt (10 ,inoptp) + l ; it row of label 

call poscur(pl ,ir, ic,p2) ; 
for (k=l ; k<=4 ;k=k+l ) if image 
< 

image(imagep)=label(k, inoptp) ; 
imagep=imagep+l ; 

> 

ic=inopt (9 , inoptp) ; 
ir=inop t (8 , inoptp ) ; 

call poscur(pl,ir,ic,p2) ; if right lower corner 
image ( imagep )=inop t ( 1 , inop tp ) ; 
imagep-imagep+l ; 

> 



if convert integer of coordinates and action codes 
it into ASCII coded 
for(i=l;i<=7 ; i=i+l ) 

{ 

for (k=7 ;k<=l 1 ;k=k+l ) 

{ 

pl=inopt (k, i ) ; 

call intasc(pl,p2,p3) ; 

inopt (k, i )=p2*256+p3 ; 

> 

> 



it roll down screen, rov; 0 now on top 
image(imagep)=27 ; it ESC 
imagep=imagep+l ; 
image(iiragep)=84; it T 
imagep=imagep+l ; 

it clear all lines of the multi purpose menu 
p2=l ; p 1=2 ; p3=LEFTM; p4=N0CH; 
call poscur(pl,p2,p3,p4); 
for (i=l ; i<=LNARC ; i=i+l ) 

{ 

image (imagep) =2 7 ; it ESC 
imagep=imagep+l ; 
image (imagep ) =75 ; if K 
imagep=inagep+l ; 
image(inagep)=27 ; it ESC 
imagep=inagep+l ; 
image(imagep) =66 ; it B 
inagep=imagep+l ; 

if(i==10) //separate command string 



{ 

image(imagep)=27 ; if ESC 



field 
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imagep=inagep+l ; 
image (imagep) =65; it A 
imagep=inagep+l ; 
image (inagep) =36; it $ 
inagep=inagep+l ; 

> 

> 

if set end of input code 
image (imagep) =36; if $ (CR LF) 

inagep=imagep+l ; 
image ( imagep ) =Eh'DOFI ; 
inagep=imagep+l ; 

call shift; if arrange image in buffer 

if store parameters 
p 1 = 1 ; call intasc(pl ,p2,p3) ; 

inopt (2,36)=p2*256+p3; if menu typ (start menu) 
p 1=7 ; call intasc (pi ,p2,p3) ; 

inopt (3 , 36 ) =p2*256+p3 ; if number of input options 
inopt ( 15 , 36 )=EMDOFR ; if end of record code 

if write inagerecords 

if temporarily substitute the last entry by ' 0 ' 
if to prevent that it is a trailing NUL. 
f or (ind=542 ; ind<=IMAGEL; ind=ind+54C) 

{ 

indbeg=ind-541 ; 

isave=im.age(ind) ; image (ind)=S240 ; it SP.'O' 
write (LUhW,l GOG) (image (i) , i=inabeg, ind) ; 

1000 format (544al ) ; 
image (ind) =isave ; 

> 



it write input option records 
write (LUMW, 500 ) (rbuf f (i),i= 1,271); 
write (LUMW, 500) (rbuf f (i) , i=27 1,541 ); 

500 format (2 72a2) ; 

if create records for all predecessor menus 
irecn=NDREC+6 ; if last record of startmenu 
while(irecn < highr) 

{ 

for(i=l;i<=6; i=i+l) 

{ 

write (LUMW, 500) (rbuf f (k) ,k=l , 2 7 1 ) ; if dummy records 
irecn=irecn-f 1 ; 

> 

> 



it copy file from m.enuout to nenufile 
call cpfile; 

return; 
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end 



********************************************************************** 

It 

It I N I T I M 

II 

//******************* * * * * ********** 5V **************** ******************* 

it 

it Initial release — hn/6 november 79 
it NAME: 



it ini tiit 

if FUNCTION: 

it create the inage to initialize the TT Display 

it 

if it ft it it it it it ft ft it if it it if it it it it it it it it it it if ft it it it it it it it it it it it it it it it it if it ft it it it it it it it it it it it it if it if it it it it it it it it 



subroutine ini tin; 



common /blkl /image , inagep , inop t , inoptp ; 

integer *2 image (IMAGEL) , inagep , inopt (INOPTL , INMAX) , inoptp ; 



it ESC E — Initialization 
//image(imagep)=27 ; it ESC 

//inagep=inagep+l ; 

//image (inagep) =69 ; it E 

/Zinagep=imagep+1 ; 



it ESC J — clear screen 
//image (inagep ) =2 7 ; it ESC 

//inagep=imagep+l ; 

# image (inagep) =74; if J 

//inagep=imagep+l ; 



it ESC ) B — define character set 3 
//image (inagep) =2 7 ; it ESC 

?/imagep=imagep+l ; 

//image (inagep) =41 ; if ) 

//inagep=imagep+l ; 

#image(imagep)=66; it B 

//imagep=imagep+l ; 



it Image to home the cursor and get 
it rid of "TERMINAL READY" 
image (inagep) =2 7 ; it ESC 

imagep=inagep+l ; 
image(imagep) = 104; if h 

imagep=inagep+l ; 
inage(inagep)=27 ; it ESC 
inagep=imagep+l ; 
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Lmage(ircagep)=75 ; // K 
Lmagep=inagep+1 ; 

return; 

=nd 



£*************& *&***&**** ****&***&*&**-;<* *&*&&& ****** 

t 

r DELETE 

t 

r 

f ******************************************************************** 



t 

} NAME: 

If delete 

? FUNCTION: 

t delete an entry in nenu directory 

f ALGORITHM: 

r while(entries in directory) 

t read record into input buffer 

t if entry was already found 

t write buffer 

t else 

t search entry in buffer 

t if found 

t delete entry in buffer 

? set found flag 

f write buffer 

t 



t copy rest of nenufile to cenuout 

t copy menuout to cenufile 



t 

t it if if if if if if it it it it it ir it it if ft ft it it it it it it if ft ft if it ft if it it it ft it it if it it v : t it ft If it it it if if it it it ft ft ft ft if it it it it it ft ft ft if it 



subroutine delete ; 

:onanon /blk4/menuid, ipredn; 

Integer *2 nenuid(lO) , ipredn;( 10) ; 

Lnteger*2 buff(544), dir(12,45), irec, found; 
equivalence (dir(l,l), buff(l)); 

it preset data 

irec=l; it counter for records 

found=0; it found flag — notfound 

it set END-OF-FILE exit 
if (ierror ( 104) != 0) goto 9999; 

if search directory records 
tfhile(irec <= 1IDREC) 

{ 

read (LUMR, 1000) (buf f (i) , i=l , 544) ; 



152 



1000 f ornat (544al ) ; 

if (found == 0) if entry not yet found 

< 

k=l; if pointer to entries 

while (k<=45 & found==0) 

{ 

1=1; if pointer to characters 

while (1<=10) 

{ 

if(menuid(l) != dir(l,k)) break; if no catch 

if ( 1>=1 0 ) If entry found 

{ 

f ound=l ; 

f or (i=l ; i<=10; i=i+l ) 

dir(i,k)=8240; if fill in 'O', delete entry 

> 

1 = 1 + 1 ; 

> 

k=k+l ; 

> 

> 

write(LUML’, 1000) (buf f (i) ,i=l , 542) ; if write record 

> 

If copy rest of cenufile 
while(l>0) 

{ 

read(LUMR, 1000) (buf f (i) , i=l ,544 ) ; 
write(LUMW, 1000) (buff (i) ,1-1,542) ; 

> 

9999 call cpfile; if copy back from rnenuout to cenufile 

return; 

end 



ft **********&** ******** ****** ******* ********* ******* 

it 

it UPDATE 

it 

//********************************************************************* 

it 

it Initial release — hn/12 oct 79 
if NAME: 

if update(irec) 

it CALLING PROGRAM: 
if cenued 

it FUNCTION: 

it Determine length of image needed 

it Generate image and input options and store then 

if in the menu file starting at record irec 

if INPUT PARAMETER: 
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it irec - record number in nenu file to store first record 



it NOTE: 

it This routine is responsible that all nenu records 

it are copied to the temporary menu file. 

it ALGORITHM: 

it generate header (no image generation) 

it while there are more text/question blocks 

it generate a block (no image generation) 

it close the input file 

it open input file for second run 

it generate header 

it generate blocks having the right spacing 

it write records 

it close files 



it 

it it it it it it if it it il it it it it it it it it it it it it it it it it it it it it ir it it it it it i c it it if it it it it it it it ir it it it it it it it it it it it it it it it it it it it it it it 



subroutine update(irec) ; 
integer*2 irec; 

common /blkl / image, imagep , inopt , inoptp ; 

integer*2 image (IMAG EL) ; 

integer*2 imagep; 

integer*2 inopt (INOPTL, INMAX) ; 

integer*2 inoptp; 

common /blk2/lincnt ; 

integer*2 lincnt; 

common /blk6/ nblock; 

integer*2 nblock; 

common /b lk9/ispace ; 

integer*2 ispace; 

integer *2 buff (80), pl,p2,p3,p4,p5; 



it preset data 
ispace=0; 
lincnt=0; 
inoptp=l ; 
imagep=l ; 

it generate header, rend number of blocks 
it first run - no image 

pi-i; 

call header(pl); 

it generate blocks, first run - no image - 
f or (i=0 ; i<=nblock; i-i+1) 
call block(pl); 

it close input file, open again 
rewind LUR; 

call setfiHLUR, 'infile '); 
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it preset data for second run 

if (lincnt>20) wri te (6 , 1 9 ) ; 19 format('Too cany inage lines needed'); 

ispace= (LMARG-lincnt ) / (nblock+1 ) ; 

lincnt = 0; 

inagep=l ; 

inoptp=l ; 

pl=2; if second run — generate image 



it clear all lines of the multi purpose menu field 
p2=l ; p3=LEFTM; p4=N0CH; 
call poscur(pl,p2,p3,p4) ; 
for (i=l ; i<=LMARG; i=i+l) 

{ 

it ESC 



image (inagep) =27 
imagep=inagep+ 1 ; 
image (iraagep) =75 
inagep=imagep+l ; 
inage (imagep ) =2 / 
inagep-imagep-f 1 ; 
image (imagep ) =66 
imagep=imagep+l ; 
if (i— 10) 

{ 



it K 



ESC 



it B 



//separate command string 



image (imagep) =2 7 ; it ESC 
imagep=imagep+l ; 
image (imagep) =65; it A 
inagep=imagep+l ; 
image (imagep) =36 ; it $ 
ircagep=inagep+l ; 

> 



> 



it update directory records , ret rieve data, store it in nr 
call upamr; 

it dummy read of function code, menu id, 

it predecessor menu id, menu type 
read(LUR,1000) buff(l); 
read (LUR, 2000) buff; 
read (LUR, 2000) buff; 
read(LUR, 1000) buff(l); 

1000 format ( i 3 ) ; 2000 f ormat(80al) ; 

it generate header -image- 
call header (pi); 

it generate blocks -image- 
for (i=l ; i<=nblock;i=i+l) 
call block(pl); 

it write records, close menu file 
call finish(irec) ; 
return; 
end 
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jjt ************************ ***** **** ************ ************** ******* * * * 

it 

it HEADER 

it 

$*********************************************** ********************** 

it 

it Initial release — hn/12 oct 79 
it NAME: 

it heaaer(inp) 

# CALLING PROGRAM: 
it update 

it FUNCTION: 

*? read menu title and number of blocks 

it INPUT PARAMETER: 



it inp - 1: first run, no image generation 

it 2: second and final run 



it ALGORITHM: 



it clear all tabs 

it position cursor to first line 

it copy text 

it read number of blocks 



it 

mmmmitmmMititmmitmmifmitmmmMmmMmwm 



subroutine header(inp) ; 



common /blk 6 /nb lock ; 
integer*2 nblock; 

common /b Ik 1 /image , imagep , inopt , inoptp ; 

integer *2 image ( IMA CEL ) , imagep , inopt (INOPTL , INMAX) , inop tp ; 

integer*2 inp; 

integer *2 pl,p2,p3, dummy ; 



it clear all tabs — ESC 3 
image(imagep) =27 ; it ESC 

imagep=inagep+l ; 
image (imagep ) =51 ; it 3 

imagep=imagep+l ; 

it position cursor for menu title and copy it 
pl=0; p2=LEFTM; p3=TEXT; 
call poscur(inp,pl,p2,p3) ; 
call copy (inp, dummy ) ; 

it read number of blocks from input file 
read (LUR, 1G00) nblock; 
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1000 format (i3); 



return ; 
end 



******* *************************************************************** 

it 

if BLOCK 

it 

^ *********************************************** ********************** 

if 

it Initial release — hn/12 oct 79 
it NAME: 

it block (inp) 

it CALLING PROGRAM: 

# update 
it FUNCTION: 

it read the parameter for a block and store them 

# determine positions of buttons 

it draw each button and label it 

it INPUT PARAMETER: 

it inp - 1: first run -no image- 

it 2: second and final run 

it ALGORITHM: 

it read block parameters 

it copy text /question 

it determine coordinates of buttons 

it draw each button 



it 

it it it it If it it it it it it it it if it it // if it it it it it it it it it it it it it it it it it if it if it if it it it it it it it it it it it it if if it it it it it it it if it it it it it it it it 



subroutine block (inp ) ; 



common /blk2/lincnt ; 
integer*2 lincnt; 
common /blk7/nbutt ,iloc,isize; 
integer*2 nbutt , iloc, isize ; 
common /blk9/ispace ; 
integer*2 ispace; 



integer*2 

integer*2 

integer*2 



inp; 
icode ; 

pl,p2,p3,is,ix,iy,ic,lbutt , ltext ; 



it read block-start-code 

it if not present write error message 
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read(LUR, 1000) icode; 

1000 format(i3); 
if (icode != S3L0CK) 

{ 

write (LUW, 100) ; 

100 format (lx, 'Uo text or question block'); 
return ; 

> 



if read block parameters 

else 

{ 

read (LUR, 1000) nbutt; if number of buttons 

read (LUR, 1CC0) iloc; if location of buttons 

read (LUR , 1000 ) isize; if size of buttons 



if do spacing before block 
is=ispace ; 

call linef d (inp , is ) ; 

if button row beside text 
if (iloc == LOCE ) 

{ 

lbutt=isize+2; 
ltext=lbutt /2 ; 
ix=RMARGB; 

iy=lincnt+lbut t-1 -isize ; 
idx= (isize+DELTA) *1 • 5 ; 
ix=ix- (nbutt-l)*idx; 
idy=0; 

> 



if button collunn beside text 
else if (iloc == L0CC) 

{ 

lbut t=nbut t * ( is ize+DELTA) -DELTA+1 ; 

ltext=lbut t/2 ; 

ix=RI'iARGC; 

iy=lincnt+lbutt-l-isize ; 
idx=0 ; 

idy=(isize+DELTA) ; 
iy=iy-(nbutt-l ) *idy ; 

> 

if button row under text 
else if (iloc == LGCA) 

{ 

lbutt=isize+3; 
ltext=l ; 

ix= (RMARCA+LEFTM-DELTA+nbu 1 1 * ( isize+DELTA ) ) / 2 ; 

iy=lincnt+3 ; 

idx= (isize+DELTA) *1 • 5 ; 

ix=ix- (nbutt-1 ) *idx; 

idy=0 ; 
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> 



II copy text 
ic = NODOUE; 

call linefd(inp.ltext) ; if linefeed to start of text 
while (ic == NOPONE) 

{ 

pl-LEFTM; p 2-TEXT; p3=lincnt; 
call poseur (inp , p3, p 1 , p2) ; 
call copy(inp,ic) ; 
pl=lbutt-ltext; 
if (ic==K0D0NE L iloc==LOCA) 

{ 

lbutt=lbutt+l ; 

iyiy+i; 

> 

else 

call linef d (inp , p 1 ) ; if linefeed below text 

> 

If draw buttons 
for(k=l ;k<=nbutt ;k=k+l ) 

{ 

pl=isize; 

call but ton(inp , pi , ix, iy ) ; 

ix=ix+idx; 

iy=iy+idy; 

> 



return ; 
end 



j f kkkkkkkkk&kkk ******************* k ******* kkkk&kk ************** ******** 

ll 

II FINISH 

II 

jf* ********************************************************** ********** 

ll 

II Initial release — hn/12 oct 79 
II MAI IE: 

II finish(irec) 

II CALLING PROGRAM: 

II update 

II FUNCTION: 

II write menu records onto nenu file 

II INPUT PARAMETER: 

II irec - first menu record on file 

II ALGORITHM: 

II divide inage store into record size pieces 
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It 

It 

It 

JL 

u 

it 

it 

it 



score ENDOFR 
write record 

determine last entry in input option store 
store menu parameter and ENDOFR 
write record 



if image pointer within a piece, store ENDOFI 
if image pointer within or at the end of a piece 



it 




subroutine finish(irec) ; 



integer *2 imager, inputr,pl,p2,p3,p4,irec; 

common /blkl / image , imagep , inop t , inoptp ; 

integer*2 image ( Il'iAGEL ) ; 

integer*2 imagep; 

integer*2 inopt (INOPTL , INI LAX) ; 

integer*2 inoptp; 

common /blk2/lincnt ; 

integer*2 lincnt; 

common /blk8/men typ , ip redr ; 

integer *2 men typ, ip redr ; 

common /blkl3/mr , ptr ; 

integer *2 mr(21,50) ,ptr; 

common /blkl4/highr ; 

integer*! highr; 

integer*! recent; it counter for written records 

integer*2 save; 

integer-2 inputo(542) ; 

equivalence (inpu to ( 1 ) , inopt ( 1,1)); 

it temporary buffer for records 
integer*2 rbuff (544) ; 

reccnt=HLREC; it preset counter (20 directory records) 

it save first record numbers for image and input options 
imager=mr (2 1 , irec) ; 
input r=imager+NIREC ; 



it set END -OF -IN PUT code 
image ( imagep ) =END0FI ; 
imagep=inagep+l ; 



call shift; 

it set label for ENE-OF-FILE condition 
if (ierror ( 104) != 0) goto 9999; 

it copy all records up to first record of this menu 
for (k~KDREC+l ; keinager ; k=k+l ) 



it shift image to avoid records cutting command strings 
it and set ENDOFR in last image record 
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{ 

read(LUMR, 1000) (rbuf f (ij ), ij = l , 544 ) ; 
write(LUMU, 1000) (rbuf f (ij ), ij=l , 542) ; 

reccnt=reccnt+l ; 

1000 format (544al ) ; 

> 



it write image records 

if temporarily substitute the last character to ensure 
it that it is no space. This would decrease the 
it fixed record length, 
for (ind=542; ind<=IMAGEL; ind=ind-f 540 ) 

{ 

save=image (ind) ; image(ind)=324G; it SP '0' 

indbeg=ind-54 1 ; 

write (LUHU, 1000) (image (i) , i=indbeg, ind) ; 
image ( ind )=save ; 
reccn t=reccnt+l ; 

> 



pl=mr(21,ipredr) ; call intasc(pl,p2,p3); 
inopt ( 1 , 29)=p2*256+p3; 
pl=Tnentyp; call intasc(pl ,p2,p3) ; 
inopt (2 , 29)=p2*256+p3; 
pl=inoptp-l ; call intasc(pl,p2,p3); 

inopt (3, 29)=p2*256+p3; if number of options (incl. perm.b.) 
inopt (15,29) =LND0FR; 



it convert integer into ASCII 
for (k=l ;k<inoptp ; k=k+l ) 

{ 

for(kk«7;kk<»ll; kk=kk+l) 

{ 

pl=inopt (kk,k); call intasc(p 1 , p2 , p3) ; 
inopt (kk,k)=p2*256+p3; 

> 

> 



it write input option records 
write (LUKU ,500) (inputo(i) , i=l , 271) ; 
reccnt=reccnt+l ; 

wri te(LUIi!J, 500) (inputo (i) , i=27 1 , 541 ) ; 
recent ^reccnt+l ; 

500 format (2 71a2) ; 

it copy rest of menu file 
it if done goto 9999 
if (ierror ( 104) 1= 0) goto 9999; 

it dummy read over old menu records 
for(i»KIREC+NOREC; i>0; i«i-l) 

read(LUIiR, 1000) (rbuf f (ij ) ,i j=l , 544) ; 
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iconst=l ; 
while(iconst==l) 

{ 

read (LUMP., 1000) (rbuf f (i j ) , i j = L , 54/.) ; 
write (LUMU, 1000) (rbuf f (ij ) , ij = l , 542) ; 
reccnt=reccnt+l ; 

> 

9999 while(highr > recent) # more records to create 

{ 

f or (i=l ; i<=6 ; i=i+l ) 

write (LU11W, 1000) (rbuf f (ij ), ij = l , 542) ; 
reccnt=reccnt+6 ; 

> 

call cpfile; it copy file fror.i nenuout to aenufile 

return ; 
end 



$*********** 'k **************************** ******************** ********* 

it 

it COPY 

it 



it Initial release — hn/lAoct 79 
it NAME: 

it copy (inp, if lag) 

it FUNCTION: 

it copy text from input file to image array 

it INPUT PARAMETER: 

it inp - 1: do not copy 

it 2: do copy 

it OUTPUT PARAMETER: 

it iflag - DONE: '(?' encountered, end of text 

it NODOME: not yet end of text 

it ALGORITHM: 

it if inp = 1: return 

it preset iflag to NODONE 

it read 80 character input line 

it if '(?' 

It set iflag to DONE, return 

it if 'CR' 



it 

it 

it 



return 

copy input character by character 



it it it it it it it it it it it if it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it 



subroutine copy (inp , if lag) ; 
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integer *2 inp , if lag , ichar , p 1 ; 

common /b 11c 1 / image, imagep , inop t , inoptp ; 

integer*2 image (IMAGEL) ; 

integer*2 inagep ; 

integer *2 inopt (IMUPTL, IUHAX) ; 

integer*2 inoptp; 

common /blk5/ibuf f ; 

integer*2 ibuf f (80) ; 



// preset output flag 
if lag=N0D0NE ; 

it read input line 
read (LUR ,100) ibuff; 

100 f ormat (80al ) ; 

it copy characters, break if 'O' 
ichar=8256 ; it SP . '(?' 
pl = l; 

for(i=l; i<=80; i=i+l) 

{ 

if (ibuff (i)==ichar) it SP.'O' 

{ 

if lag=D0NE ; 

call linefd(inp,pl) ; 
return ; 

> 

if (ibuff (i)==8205 | ibuf f (i) ==8316) it SP. CR or | (end of line) 
{ 

call linef d (inp , p 1 ) ; 
return ; 

> 

else if (inp != 1 ) { 
image (inagep ) =ibuf f (i) ; 
inagep=imagep+l ; > 

> 

return ; 
end 



//***** ********** ************************************************ ****** 

it 

it L I n E F D 

it 

// ********************************* *************** ***** ****** * ********* 
If 

If Initial release — hn/14 oct 79 
11 NAME: 
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it linef d(inp , nun) 

it FUNCTION: 

it generate display connands for line feed/ carriage return 

if INPUT PARAMETER: 

if inp - 1: do not generate, only update lincnt 

if 2: generate line feeds, update lincnt 

if nun - nunber of line feeds 



if 

if 

it 

it 

it 



ALGORITHM: 

update lincnt 
if inp = 1 return 
generate linef eeds , 



carriage return 






subroutine linef d (inp , nun) ; 



integer *2 inp , nun; 
common /blk2/lincnt ; 
integer*2 lincnt; 

lincnt =lincnt+n urn; 

if(inp==l) return; it no image generation 
call crlf; 
return ; 
end 



ft******** ************************************************** *********** 

if 

if P 0 S C U R 

it 

//**** ****** ** ****** ***** ***************** ** ********** ******** ********* 

it 

it Initial release — hn/14 oct 79 
if NAME: 

it poseur (inp , irov;, icol , icode) 

it FUNCTION: 

it position the cursor and switch to requested node 

it INPUT PARAMETERS: 



it 


inp 


- 1: do nothing 




it 




2: do 




it 


irow 


- row nunber 




it 




-1 if only collurn change 




it 


icol 


- collunn number 




it 




-1 if only row change 




it 




if both irow and icol = -1 , 


only change mode 


it 


icode 


- new mode 




it 




BUTT - Alternate character 


set (lines) 


it 




TEXT - Ease character set 




it 




NOCH - No change, leave old 


character set 


it 


ALGORITHM: 
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if if inp = l return 

if if new mode != NOCK 

if switch to new node 

if position cursor 



# // // // // f/ # // # f/ ^ // /A # 7^ // ir ; // # ?/ 7 / 7 / f> ^ fr C // ^ 



if ir if if if f! if if if if if if if if if if if it if if if if if it it it it if it if it it it it 



JL 



subroutine poseur (inp, irow,icol, icode) ; 



integer* 2 inp, i row, icol, icode; 

common /blkl /image , imagep , inop t , inoptp ; 

integer*2 image (IMAGEL) ; 

integer*2 imagep; 

integer*2 inop t (INOPTL , INMAX) ; 

integer*2 inoptp; 

common /blk3/mode ; 

integer*2 mode; 

common /blklO/rowcur ; 

integer*2 rowcur; 

integer*2 irovnv(6) ; 
integer *2 icolmv(6 ) ; 
integer*2 ircnv(9) ; 

it ESC & a R 

data irownv( 1 ) / 2 7 / ; 
data irownv(2) /38 / ; 
data irowmv(3) /9 7 / ; 
data irowmv(4) / 32 / ; 
data irownv(5) /3 2 / ; 
data irowmv(6) /8 2 / ; 

it ESC & a r C 

data ircmv(l ) /2 7/; 
data ircmv(2) /3 8 / ; 
data iremv (3 ) /9 / / ; 
data ircmv(4) /32 / ; 
data iremv (5 ) /3 2 / ; 
data iremv (6) /I 14/; 
data ircuv(7 ) / 32/; 
data iremv (8) /32/ ; 
data ircinv(9) /6 7/; 

it ESC L a C 

data icolmv(l) / 2 7 / ; 
data icolmv(2) /3 S / ; 
data icolmv(3) /9 7 / ; 
data icolmv(4) / 32 / ; 
data icolnv(5) / 3 2 / ; 
data icolmv(6) /6 7 / ; 

if (inp == 1) return; 



it move only row 
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if(icol == -1 & irow 1= -1) 

{ 

irownv(4) = irow/10+48; it 'C' 

irowmv(5) = nod (irow, 10) +48; it 'C 

for(i=l; i<=6; i=i+l) 

{ 

image (imagep) = irownv(i); 
ir.agep=inagep+l ; 

> 

it save row of cursor 
rowcur=irow ; 

> 

it move only col 

else if (irow == -1 & icol != -1) 

{ 

icolmv(4) = icol/10 + 48; it ' 0 ' 
icolmv(5) = nod(icol,10) + 48; it ' 0 

for(i*l; i<=6; i=i+l) 

{ 

inage(inagep) = icolnv(i); 
iniagep=imagep+l ; 

> 

> 

it move row and col 
else if(icol !- -1 & irov; != -1) 

{ 

it separate command string 
if (rowcur<23) call crlf; 
ircmv(4) = irow/10 + 48; it ' 0 ' 

ircrnv(5) = mod (irov;, 10) +48; it 'Q 

ircmv(7) = icol/10 + 48; it 'G' 

irciuv(8) = mod (icol, 10) + 48; it ' 0 

for(i=l; i<=9; i=i+l) 

{ 

image (inagep) =ircmv(i) ; 
imagep=imagep+l ; 

> 

it save row of cursor 
rowcur=irow; 

> 

it change node if necessary 
if (icode != KOCH) 

( 

image(inagep) = icode; 
imagep=imagep+l ; 
node = icode; 

> 

return ; 
end 
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$********************************************************************* 

ji 

v 

if BUTTON 



,-jf ********************************************************************* 

if 

It Initial release — hn/ 14 oct 79 
it NA11E : 



Ir but ton ( inp , isize , ix, iy ) 

it FUNCTION: 



if read additional button information and store it in inopt 

if initiate drawing of the buttons 

it INPUT PARAMETERS: 



it 

it 

n 

ir 

if 

it 

it 



inp - l:do not drav/ buttons 
2: do everything 

isize - size of the buttons to draw (number 
ix - colluro number of rigth upper corner 
iy - row number of rigth upper corner 
ALGORITHM: 



of 



lines ) 



ji 

it 

it 

it 

it 



it 

H 

ir 

it 

,‘t 

It 

it 

it 

n 
i r 

it 

if 

if 

if 

it 

it 

it 

it 

it 



read start-of-response code 
if not there, write error message 
read and store: 
label 

plain-English resage for logging 
action code 
if display-new-nenu 
read menu-id 

get first record number cf menu 
store record number in inopt 
if return-character 

read character and store it 
if return-integer or return-task-id 
read integer and store it 
if parameter-block-update 
it M l H-H- do not know yet 
if inp == 2 

store button coordinates 
create button images 
increrent pointer in inopt 



it it if if if if it if it it it it if it if it it it it if if if it if it it it it it it it it it if it it it it it it it it it if it if it if it if it it it if it it it it it it it it it it it if it it it it 



subroutine but ton (inp , size , ix, iy ) ; 

integer*2 inp , size, ix, iy , ichar , irec ; 
integer *2 pi , p2,p3; 

common /blkl /image , imagep , inopt , inoptp ; 
integer*2 image (IMAGEL ) ; 
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integer*2 imagep ; 

integer*2 inopt ( ILCPTL , ItulAX) ; 

integer*2 inoptp; 

common /blk4 /menu id , ipredm; 
integer*2 nienuid(lO) ; 
integer *2 ipredm( 10) ; 

conirion /blk5/ibuf f ; 
integer*2 ibuf f (IBUFFL) ; 

integer*2 icode; i if temporary storage 

it input buffer 40 words 
integer*2 iwbuf f (40) ; 

ichar=8256; it SF.'Q' 

it read start-response code 
read(LUR, 1000) icode; 

1000 f ormat ( i 3) ; 
if (icode != SRESP) 

{ 

write (LUU, 100) ; 

100 f ormat ( lx, 'Fo response to read'); 
return ; 

> 

else 

{ 

v read label and store it 
read (LUR, 200) ibuff; 

300 f ormat (40a2 ) ; 

inopt ( 1 , inoptp ) = ibuff(l); 

it read plain-English message and store it 
read (LUR, 300) iwbuf f ; 
for(i=2; i<=6; i=i*H) 

{ if (iwbuf f (i-1 )==ichar) break; 
inopt (i , inoptp) = iwbuff(i-l); } 

if read and store action code 
read (LUR, 1 COO) iact; 
inopt ( 1 1 , inoptp) = iact; 

it d isp lay-new-menu 
if(iact == 1) 

{ 

it read menu-id and store it 
read (LUR , 200 ) ibuff ; 

200 f oriaat ( 80a 1 ) ; 
for(i=l; i<=10; i=i+l) 

ipredn(i)=8240; it SP.'O' 

i=l; 

while(i<=10 & ibuff (i)!= ichar) 
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{ ipredm(i) =ibuf f (i) ; i = i+l; > 
if (inp== 1 ) 

{ p l=PREDt ; 

call sctmen(p 1 , irec) ; } ft set menu record number 
else { call getmen (irec) ; 

pl=irec; call intasc(pl ,p2,p3) ; 
inopt (12, inoptp) = p2*256+p3; ft store record number 

> 

> 

ft return-character 
else if(iact == 2 | iact == 4) 

{ 

read (LUR , 300 ) iwbuf f ; 
inopt(12,inoptp) = iwbuff(l); 

> 

ft integer or task-id 
else if(iact == 3 | iact == 14) 

{ 

read (LUR, 1000) pi 

call intasc(pl,p2,p3) ; 
inopt (12, inoptp )=p2*256+p3 ; 

} 

ft -H-H - ++ pb change, do not yet know 
else if (iact == 15) 

{ 

continue ;ll 1 1 I do not knov/ 

> 



ft draw buttons 
if (inp == 2) 

{ 

inept (7 , inoptp ) = 
inopt (8, inoptp) = 
inop t (9 , inoptp) = 
inopt (1 0, inoptp) 52 



ix+l-size*l . 5 ; 
iy-l+size ; 
ix; 

iy; 



call draw; 

> 



inoptp=inop tp+1 ; 

> 



return ; 
end 



************************* ************* ********** * ************* * ******* 
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D R A W 



it 
it 
# 

;/********************************************************************* 



it 

if Initial release — hn/ 15 Get 7S 
if NAME : 



it draw 



it FUNCTION: 

it create image to draw a button 

// ALGORITHM: 
it clear all tabs 

it set tab at right button margin 

it set tab at left button margin 

it position cursor to left upper corner 

it while more lines 

it enhance line within tabs 

it tab to beginning of next line 

it tab to left limit of button 

it draw label 



ft 

it it it it it it it it it it it it if it it it it if it it it it it it if it it it it it if it it if it it it it it it it it it it it# 



subroutine draw; 



integer*2 p 1 , p2 , p3, p4, iy , ir , ic; 

common /blkl /image , inagep , inopt , inoptp ; 

integer*2 image (IIIAG EL ) ; 

integer*2 imagep ; 

integer*2 inop t (INOPTL , INMAX) ; 

integer*2 inoptp; 

common /blklO/rowcur ; 

integer *2 roveur ; 

integer*2 icltab(2); it clear all tabs 
integer*2 endenh(4); it end of enhancement 

it ESC 3 

data icltab ( 1 ) /2 7/ ; 
data icltab (2)/51/; 

it ESC & d Q 
data endenh( 1 ) f 2 1 1 ; 
data endenh(2) /3 8 / ; 
data endenh (3) / 1 00 / ; 
data endenh (4 ) /64/ ; 

it separate coumand string 
call crlf ; 

it clear all tabs 
for(i=l; i<=2; i=i+l) 

{ 



1/C 



image ( imagep )=icl tab (i) ; 
inagep=iraagep+l ; 

> 



it set right tab 
pl=inopt (9, inoptp )+l ; 
call settab(pl); 

it sane for left margin 
pl=inopt (7 , inoptp) ; 
call settab(pl); 

it save upnost line of button 
iy=inopt (10, inoptp); 

it draw enhancement for button 
while(iy <= inop t (8 , inop tp ) ) 

{ 

it position cursor to upper left corner, change node 
p4=2 ; P 3=BUTT ; 
call poscur(p4,iy,pl,p3); 

call enhanc; 
call tab; 

for (i=l ; i<=4; i=i+l) // end of enhancement command 

{ 

image ( imagep ) =endenh ( i ) ; 
inagep=inagep+l ; 

> 

iy=iy+l ; 

> 

it draw label 

ic = (inopt ( / , inoptp )+inopt (9 , inoptp ) ) /2 ; 
ir = (inopt(8, inop tp )+inop t ( 10 , inoptp ) ) /2 ; 

if(ic< = 12) return; it no label for permanent buttons 

pi =2; p 2 -TEXT ; 

call poseur (p 1 , ir , ic, p2) ; 

it copy label 

image (imagep) =inopt ( 1 , inoptp ) ; 
iragep=imagep+l ; 

image (imagep) -inopt (1 , inoptp) /256 ; 
imagep=imagep+l ; 

return; 

end 



//************************************ ****** *********** ******* ***** 

# 



in 



it S E T T A R 

it 

ft ********** ************* **************** ****^*«Sf*5i:>Sc*55f****A^******^f^c***** 



>i 

It 

If Initial release — hn/ 15 oct 79 

i? lIAhE : 

# settab(icol) 

If FUNCTION: 

It position cursor to specified collunn 

it set tab 

it ALGORITHM: 

it move cursor to collunn 

it set tab 



it it it it it it it it it it it if it it it If it it it if If if it it it it it if it it it if if it if it it it it it it it v it it it it it if if if it it if if it it if it 3 t it ir it If it it if it it If 



subroutine settab(icol) ; 



integer *2 icol,pl,p2,p3; 

common /blkl / image, imagep , inopt , inoptp ; 

integer*2 image (IMAGEL) ; 

integer*2 imagep ; 

integer*2 inopt (INOPTL, INMAX) ; 

integer*2 inoptp; 

pl=2 ; p2— 1; p3=N0CII; 

call poscur(pl,p2,icol,p3); 

image (inagep)=ESC ; 

imagep=imagep+l ; 

image (imagep) =49; it 'l' 

inagep=imagep+l ; 

return; 

end 



it 

it TAB 

it 

If***** jc* &*£***&*% *%%**&* & ***%* ***£*&*** ******* &****** *£**£!;* 



ir Initial release — hn/ 15 oct 79 
it NAME: 



it tab 

it FUNCTION : 
it generate tab 



it 

it it It it it it it it it it it it it it it if it it it it it it it 



it it it it it it it it it it it it it it it it it it it it it It it it it it it it it it it it it It it it it it it it it it it it 



:t /» ji 

ir ir ir 



subroutine tab; 
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common /bllcl /image , imagep , inopt , inoptp ; 

integer *2 image (IXAGEL ) ; 

integer*2 imagep; 

integer *2 inopt (INOPTL, INtlAX) ; 

integer*2 inoptp; 

image ( imagep ) -ESC ; 

imagep=imagep-M ; 

image (imagep) =7 3; # 'I' 

imagep=imagep+l ; 

return; 

end 



$ ************************ * ****************** ************* ****** * ****** 

it 

it E N H A N C 

it 

tf****** ********* ******* ************ ********************************** 

it 



it Initial release — hn/ 15 oct 79 
it NAhE : 

it enhanc 

it FUNCTION : 

it start enhancement for button (inverse video, half bright) 

it 

it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it It it it it it it it it it it it it it 



subroutine enhanc; 



common /blkl /image , imagep , inopt , inop tp ; 
integer*2 image(IilAGEL) ; 
integer*2 imagep; 
lnteger*2 inopt (INOPTL, IK1IAX) ; 
integer*2 inoptp; 

integer*2 ienh(4); 

it ESC £> d J 
data ienh(l ) /2 7 / ; 
data ienh(2)/38/; 
data ienh (3 ) /IOC/ ; 
data ienh(4)/74/; 

for(i=l; i<=4; i=i+l) 

{ 

image (imagep )=ienh (i) ; 
imagep=imagep+l ; 

> 
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return; 

md 



ft******************** ************ ******************************* ****** 



# 

jf********* ************************************************* *********** 

it 

it Initial release — hn/31 October 79 
it NAME: 

// intasc (inp , out 1 , out2 ) 

it FUNCTION: 



it Conversion cf an integer (0-900) into tv/o integer*! ASCII codes 

it ALGORITHM: 

it outl= inp/30 +40 (range ASCII 40-70) 

it out2= mod(inp,30) +40 (range ASCII 40-69) 

it 



it it it it it it ir it it it it it it it it it it it if if it it it it it it it it it it it it it it it it it it it it it It if it it it it it it it it it it it it it it it it it it it it it it it If if 



subroutine intasc(inp,cutl ,out2) ; 

integer *2 inp,outl,out2; 
integer nunl ,nur:2 ; 

nunl=inp ; 

out l=inp/ 30+40 ; 

nun2=nod (nunl , 30) ; 

out 2=num2+40 ; 

return ; 

end 



jf********* *************** ********** *********************************** 



it A S C I N T 

it 

/;** ******************************************** * *********** *********** 
it 

it Initial release — hn/31 October 79 
it NAME: 

it ascint (ini , in2 ,outp ) 

it FUNCTION: 



it Conversion of an ASCII coded number (0-900) into 

it an integer*2 value 

it ALGORITHM: 

it outp= (inl-40)*30 + (in2-30) 

it 

it it it it it it it it it if it it it it ft it H it it ii it it if it it it H it it if it it it it it it If it it it it it it it it it it it it it it If it it it if it if tt if it it it it it it l it it 
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subroutine ascint (ini , in2 , outp ) ; 

integer- 2 ini , in2 ,outp ; 

outp=(inl-40) *3G+in2-40 ; 

return ; 

end 



ft************* * *************************************** ********* ******* 

ff 

if C R L F 

it 

ft ********************************************************************* 

# 

it Initial release — hn/31 October 79 
it NAME: 



it crlf 

it FUNCTION : 



it create cr/lf for inage array without incrementing 

ir the linecounter lincnt 



if 

if if if if if if if if it it it it it if it it it it it it it it it it it it it it it it it it it it it it if if it it if it it it it it it it it it it it if it it it it it it if it if it it it it if if if 



subroutine crlf; 

common /bllcl / image, imagep , inop t , inoptp ; 
integer*2 image (IMAGEL ) , imagep; 
common /bllclO/rowcur ; 
integer*2 rowcur ; 



if (rowcur>22) return; it cr/lf would roll up the screen 
image (imagep) -36 ; it $ (CR LF) 

iniagep=imagep+l ; 
return ; 
end 



//********************************************** ***** ******* *********** 
it 

it SHIFT 

it 

ft ************ ************************************************** ******* 

it 

it Initial release — hn/31 October 79 
it NAME: 
it shift 
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it FUNCTION: 

if shift the contence 

if 



of the inage array to prevent 



separation of a command string by any record 
if place ENDOFR into last used record 

if ALGORITHM: 

if while(image fills another record) 



if 
it 
if 
it 
it 



start at end of record and search CR/LF 
if found compute difference to end of record 
shift rest of image by the difference 
place ENDOFR into last used record 



subroutine shif t ; 

common /blkl /image, inagep , inop t , inoptp ; 
integer*2 image (IMAGEL) , inagep ; 
integer *2 ind,dif f ; 

it check all record items 
f or (ind=540 ; indcimagep ; ind=ind+540) 

{ 

f or (index=ind ; index>0 ; index=index-l ) 

{ 

if (image(index)==ENDOFI ) break; f/end of input 
if (inage(index)==36) it $ (CR LF) 

{ 

dif f =ind-index; 
inagep=imagep+dif f ; 
f or (i = imagep ;i>ind;i ss i-l) 
image (i)=inage(i-dif f ) ; 
image (index+1 )=ENDOFI ; 
break; 

> 

> 

> 



it store ENDOFR 
image ( ind ) =ENDOFR ; 
return; 
end 



************** ******************* ************************** *********** 
it 

it S A V E h R 

it 

//*************************** *************** ***************** ********** 

it 

it Initial release — hn/3 november 79 
it NAME : 

it savemr (index) 

it FUNCTION: 

// store old and new menuids (idold , idnew) into nr and 
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i) return the index in rr 

if OUTPUT PARAMETER: 
if index - index in nr 

it 






subroutine savenr (index) ; 

integer*2 index; 

common /blkl2/idold, idnew; 

integer*2 idold(lO), idnew(lO); 

common /b lk 1 3 /mr , p t r ; 
integer* 2 mr(21,50),ptr; 



for(i=l;i<=10; i=i+l ) 

{ 

mr(i,ptr)=idold(i); 
mr (i-flO,ptr)=idnew(i) ; 
> 

index=ptr ; 
pt r=p t r+1 ; 

return; 

end 



$********************************************************************* 

ir 

if GET M E N 

if 

//********************************************************************* 



it Initial release — hn/3 novenber 79 
if NAME: 

it getr.en(irec) 

it FUNCTION: 

it get the menu record number for a menu 

it v/hose tnenuid is in ipredn 

it OUTPUT PARAIlETER: 

it irec — record number of first menu record 



it 

mMMmitmtmMmititmmmmittMmititmmitmitmmtMitif 



subroutine getnen(irec) ; 
integer*2 irec; 

common /blk4/nenuid, ipredn; 
integer*2 menuid(lO), ipredm(lO); 

common /blkl3/mr , p tr ; 
integer* 2 rr(21,50),ptr; 

irec=C; it preset 
i=l; ir index in nr 
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while(i<ptr u irec==0) 

{ 

j-11; it index for first character of nenuia 
while (irec==0 & j <=20 ) 

{ 

if(mr(j,i) != ipredr( j-10) ) break 
else if(j>=20) 

{ irec=nr (21 , i) ; break;} 
else j=j+l ; 

> 

i=i+l ; 

> 

return ; 
end 



ft**** *********** *£*****************************************£*** ******* 



U P D U 



■n 

is. 



ft ****************** ****** ‘A***********************************:*:******** 



ji 

It 

u Initial release — hn/3 novenber 79 
if NAME: 



if updmr 

it FUNCTION: 

if read all r.enu directory records from renufile and write 

it them to nenuout 

it retrieve record numbers for ir.enuid's store! in rnr 

it and store then in nr* 

it ALGORITHM: 

it open files for read from renufile, write to menuout 

it while there are more directory records 

it read a record 

it for all entries in record 

it compare it with mr entry 

it if found store record number 

it update directory record (new menu id & rec number) 

it if still entries in nr 

it create new entries in directory 

it write record to menuout 



it 

mwititmmmtmmmmmmMmmmmMMMimmmm# 



subroutine updmr; 

common /blk!3/mr , pt r ; 
integer*2 mr(2i,50), ptr; 
common /blk!4/highr ; 
integer*2 highr; 
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common /blkl5/ifunct; 
integer*2 ifunct; 

integer*2 rbuff(544), dir(12,45), pl,p2,p3; 
equivalence ( rbuf f (1) ,dir(l, 1)) ; 

write(6, 13) ; 13 f orrcat ( 'updnr: '); 

it close and open files 
call coffwd; 

if (ierror (104) != C) goto 9999; if if END-OF-FILE 
icount=ptr-l ; if nunber of entries 

highr=0; if preset 



f or (i=l ; i<=UDREC ; i=i+l ) it for all directory records 

{ 

read (LUIIR, 100) (rbuff (k) ,’*-1,544); 

100 format (544al) ; 

if (icount 1=0) { 

f or ( j=l ; j <=45 ; j=j+l ) if for all record entries 

{ 

if (dir ( 1 , j ) ==8240) if first empty entry 

{ 

for(k=l ;k<ptr;k=k+l) 

< 

if (nr (21,k)==0) 

{ 

if ( (k==2& (if unct==CRFATE | if unct==INITH) ) | 

(k 1=2 & dir (1 1 , j) ==3240 & dir ( 12 , j )==8240 ) ) 

{ f or (kk=l ;kk<=10;kk=ltk+l ) 

mr(kk,k)=8240; it old id's now empty 
break; it only blank the next one 

> 

> 

> 

> 

for(n=l ;r.<ptr;n=n+l) if for all mr entries 

{ 

for (1=1 ; 1<=10 ; 1=1+1 ) if for all characters of r.enu-id 

{ 

if (mr(21 ,n) 1=0) break; it if record nunber found 
if (mr(l,n) != dir(l,j)) break //char dont match 
else if(l==10) it nenuia found 

{ 

for (11=1 ; 1 1< =1 0 ; 11=11+1 ) it copy new tnenuid 
dir (11 , j )=nr (11+10 ,n) ; 

p3=NDREC+l+((i-l)*45+j-l)*(NIREC+NOREC); if rec nunber 
if(p3>highr) highr=p3; 
mr(2 1 ,n) =p3; 

call intasc (p 3 , pi , p2 ) ; it convert into ASCII coded 

dir (11, j)=pl; dir ( 12 , j ) =p2 ; 
icount=icount-l ; 

> 
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> 

> 

> 

> 

write (LUMU, 200) (rbuf f (k) ,k=l , 542) ; 

200 f orroat (542al ) ; 

> 

0999 if(icount>C) 

{ 

write (LUU, 77 7) ; stop; it not all menu names found 

it error condition 

777 forraatf' Not all menus found , check input — stop'); 

> 

return; 

end 



ISO 



MENU CHECKER PROG RAH 



ft :V * * * * * * * * * y: >? * * * * * £ * * * * * * * * * rt * * * * * * * * :’< A * *A * * * * >'c * A * * * * * * * x * £ A * vJr * * * :'< * * it * * 
# * 
ir 

if 



1. 2! C H E C K 



If 

If Initial release — hn/1 Oct 7S 
If NAME: 

It ir.chcck 

it FUNCTION : 

If print inage of a irenu 

If print input options of a r.enu 

It print directory records 

if CALLING PROGRAM: 
it IIT —11 

it INPUT: 

it text file with all needed information having the format 

it described below. 

It NOTES: 

it 

A 

n 

if 

a 

)r 

it 
it 

if (i) 

it 
it 
it 



This is an off-line program. 

It interprets a standard input in certain format. 
Input may be files or any input device. Each line 
of input lias to be in the following formats 
( line number ): 

: function 

6 = primag - print image of a menu 
1 = propt - print input options of a menu 
5 = prdir - print directory records 



it The following formats will depend on the functions. 

it 

it for all input files: 
it (1) : function code 

it 

it for primag, prop t 

it (2) : menu-id (10 character) 

it 



it it it iht it it it it it it it it it 


it it it it it it i 


h'fititit; 


it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it i: 


define 


EUR 


5 


it 


logical unit for read 


define 


lux; 


6 


if 


logical unit for write 


define 


LUI.R 


7 


it 


logical unit for menu file read 


def ine 


L 11 M 


8 


it 


logical unit for menu file write 


def ine 


LUTTD 


4 


it 


logical unit display 


def ine 


KDREC 


20 


it 


number of directory records 


define 


KIREC 


4 


it 


max 4 records for image 


def ine 


KOREC 


2 


it 


max 2 records for input options 
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it function codes from input file 



define 


FREDii 


0 


it 

# 


find a menu id in directory 
( id in ipredn) 


define 


DELETE 


1 


it 


delete menu id in directory 


define 


CREATE 


2 


■i 

It 


insert a new menu id in directory 


def ine 


UPDATE 


3 


Jt 

it 

it 


find a menu id in directory 
(id in menuid) 


def ine 


SUC CM 


4 


If 


find raenuid of successor ^enu 


def ine 


PRINTD 


5 


it 


print the contents of directory 


define 


PRINTI 


6 


it 


print image of a menu 


define 


PRINTO 


7 


if 


print input options of a menu 


define 


INITM 


a 


a 


create the initial menu 





it code 


for button 


locations 


def ine 


LCCA 


1 


if 


button row below the text 


def ine 


LCCB 


2 


if 


button row beside text 


define 


LOCC 


3 


■f 


button coilumn beside text 




if symbolic names 


for fixed margins 


define 


LEFTM 


8 


it 


left margin of menu field 


def ine 


LEFTP 


2 


if 


left margin of permanent buttons 


define 


LIjARC 


20 


if 


lower margin of menu field 




if right 


margins 


for button rov/s/collunns 


define 


RMARGA 


78 


if 


button row below text 


def ine 


RIIARC-B 


78 


if 


button row beside text 


def ine 


RMARGC 


78 


if 


button collunn beside text 


define 


DELTA 


2 


n 

it 


free rovs/coll between buttons 


define 


IMAGEL 


2432 


H 

It 


image storage length (bytes) 


def ine 


INOPTL 


15 


if 


word length for each input option 


define 


INMAX 


37 


if 


max number of input options 


define 


IBUFFL 


80 


it 


input buffer length 


def ine 


END 0 FI 


8316 


it 


code for end-of-input 


def ine 


ENDOFR 


8318 


it 


code for end-of -record 


define 


TEXT 


15 


it 


code for text mode 


def ine 


BUTT 


14 


it 


code for line rode 


define 


SELOCK 


126 


it 


code for s tar t- text /question-block 


define 


SRESP 


127 


it 


code for start-response-block 




# symbolic input 


parameter 


def ine 


DONE 


1 




done 


def ine 


NODOIIE 


0 


it 


not yet cone 




if ASCII 


character 




define 


ESC 


27 


it 


ESC 


def ine 


CONTAO 


15 


it 


CONTROL 0 


def ine 


X Xv Li 


14 


it 


CONTROL N 
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it input buffer 
integer*2 ibuf f (I3UFFL) ; 

IF storage for menu- id 
integer *2 menu id ( 10) ; 

v storage for menu-id to lookup in directory 
integer*2 ipredm(lO) ; 

it storage for inage 
integer*2 image (IHAGEL) ; 

it storage for input options 
integer*2 inop t (IbOPTL , INIIAX) ; 



it pointer 
integer*2 inagep 
integer*2 inoptp 



it next free entry in image 
it next free entry in inopt 



it next line to write on display 
integer*2 lincnt; 

it display mode 
integer*2 node; 

it function code 
integer*2 ifunct; 



integer*2 


idold(lO); it 


menuid 


Co 


int eger*2 


idnew(lO); it 


menu id 


to 


it 


menu parameter 






integer*2 


nblock; it 


number 


of 


integer*2 


nbutt; it 


number 


of 



it location of buttons in a block 
it size of buttons 
it menu type 

it record number of predecessor menu 



integer*2 iloc; 
integer*2 isize; 
integer*2 rrentyp; 
integer*2 ipredr; 
integer*2 ispace; it space lines between text blocks 

integer *2 irec , pa ran, ichar ; 
integer *2 nr(21,50),ptr; 



v temporary storage for menuid,rec 



integer insave, irsave,iwsave; it file descriptor from open 

common /blkl /image, imagep , inopt , inoptp ; 

common /blk2 /lincnt ; 

common /blk3/mode ; 

common /blL4/menuid , ipredm; 

common /blk5/ibuff ; 

common /blk6/nblock ; 

common /blk7/nbutt , iloc, isize ; 

common /blkS/mentyp , ipredr ; 

common /blk9/ispace ; 

common /b lk 11/ i r save , iwsave ; 

common /blkl 2/idold , id new; 
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common /blkl3/nr,ptr; 



if specify logical unic numbers and 
if open nenufiles for read/write 
if Che old menu file 'menufile' is read and 
if it is written onto a tenporary menu file 
if after all is done, 'menuout' is copied to 
call setf il(LUHR, 'cenufile '); 

if preset inopt , image, menuid, ipredn, ichar,rr 
for(i=l ;i<=INI!AX;i=i+l) 

{ 

for( j=l ; j<=IUCPTL ; j=j+l ) 

inopt (j , i)=024G; if SP.'O' 

> 

for(i=l;i<=IKAGEL;i=i+l) 

image (i ) =8240 ; if SP.'O' 

for (i=l ; i<=10 ; i=i+l ) 

{ 

menuid (i ) =8240 ; if SP.'O' 

ipredn(i ) =8240 ; if SP.'O' 

> 

ichar=8256; if SP.'G' 

ptr=l ; 

for (i =1 ; i<=50 ; i=i+l ) 

{ 

f or ( j=l ; j<=21 ; j=j+l ) 
mr(j,i)=0; 

> 



if read function code 
read(LUR, 1000) ifunct; 

1000 format(i3); 

if (if unct==PRIKTD) call prdir 
else 
{ 

if save menu-id 
read (LUR, 100) ibuff; 

ICO format (8Gal ) ; 

i=l ; 

while (i<=10 L ibuff (i) !=ichar) 

{ menuid(i)=ibuf f (i) ; i=i+l; ) 

if (if unct==PPvINTI ) call primag 
else if (if unct==FRXNTO) call prcpt; 



r^enuout ' . 
'menuf ile ' • 
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> 



it close all files 
rewind LUMR; 

end 



•t 

it 

S E T n E N 



it 

if 

$ kkk&k kk kk k k&kkk k k&k kk&kkkkkkkkkkkkkkkkkkkkkkkkickk icy: kk kick kkkkkkk *&&&&!< 

if 

if Initial release — hn/2 Oct 79 
if NAME: 

if setmen(irec) 

if CALLING PROGRAM: 
if mcheck 

if FUNCTION: 

if prepare store for new and old nenuid 

if and set r.enuid into nr 

if OUTPUT PARAMETER: 

if irec — index of nenuid in nr 

if INFORMAL INPUT: 

if menuid - menu id 

if ALGORITHM: 

If reset tenporury id stores 

if copy id's 

if save old and new nenuid in nr, return index 

if 

:i 

if if if if if if if if if if it if if ir if if if if if if if if If if if If if if if if if if if if if it if if if if if if if it if if if if it it if it it if it it if it if if it if it H it it if if it it 

subroutine setraen(irec) ; 



integer *2 if lag, irec; 
integer*2 pl,p2; 
cornon /bllc4/ir.enuid , ip redr;; 
integer*2 nenuid(lO); 
integer*2 ipredn(lO) ; 

it store for old and new nenuid 
connon /blkl2/idold , id new; 
integer *2 idold ( 10) ; 
integer*2 idnew(lO) ; 
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it preset temporary storage for id's 
for(i=l; i <= 1 C ; i=i+l) 

{ 

idoid (i ) =824 0 ; it SP.'G' 

idnev(i)=8240; 

> 

it store old and new menu id's 
f or (i=l ; i<=10; i=i+l ) 

{ 

idold(i)=nenuid(i) ; 
idnew (i ) =menuid (i ) ; 

> 

it save rcenuid in nr 
call savemr (0 , irec) ; 

return ; 
end 



£*&*&********&& it* & * * ic * & & ic £********* x * * & X j* & X * * X * & & X & * M X * k X ****** -k & 
it 

If SAVE M R 

# 



ft ********* sfe*:^********************:*?*:*:**** * * * * * ***£&*****&**********&*** 

it 

if Initial release — hn/3 november 79 
it UAL IE: 



ir savemr (pi , index) 

it FUNCTION: 

it store old and new nenuids (idoid , idnew) into nr and 

it return the index in nr 

it or store record number and return inaex 

if OUTPUT PARAMETER: 
it index - index in mr 



ir it it if it it if it if it it it if if it it it if it ir if it if it ir if it it if if it it if it if if if it if it H if it it it if it if ir it it it ir if it it it if it it if it if if it it if it H it 



subroutine savemr (pi, index) ; 

integer *2 index, pi ; 
common /blk 12 /idoid , idnew; 
integer*2 idold(lO), idnew(lO); 

common /blk 13/nr, ptr; 
integer*2 nr (21 , 50) , ptr ; 



if (pl=«Q){ 

for (i=l ; i<=10;i=i+l) 

{ 

mr(i,ptr)=idold(i); 
nr (i+10,ptr)=idnew(i) ; 
> 
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else nr (2 1 , ptr )=*p 1 ; 
index^ptr ; 
ptr=ptr+l ; 
return; 
end 



ft ****** &****&*& it &&*&***£ ***&*X'M%is****% J< *******&*&** k^MX*** 

it 

if G E T M E li 

if 

ji************************** ************ ********************* ********** 



it 

11 Initial release — hn/3 novenber /9 
if NA11E: 

it getmen(irec) 

it FUNCTION : 

if get the menu record number for a menu 

it whose raenuid is in ip redo 

It OUTPUT PARAMETER: 

it irec — record number of first menu record 



it 

it It it It it it it it if it it if it If if it if it it it it it if if it if it if it it it it it it if it it if it if if it if it if it it it it it if if it if it it it it if It if if it it if if if if it 



subroutine getmen (irec) ; 
integer*2 irec; 

common /blk4/menuid , ipredn; 
integer*2 nenuid(lO), ipredi (10); 

common /b Ik 1 3 /mr , p t r ; 
integer *2 nr (21, 50), ptr; 

irec=0; it preset 
i=l; it index in mr 

while(i<ptr & irec==0) 

{ 

j«ll; it index for first character of menuid 
while(irec= s=t 0 & j <=20 ) 

{ 

if (mr ( j , i ) != ipredn(j)) break 

else if(j>=20) 

{ irec=mr (21 , i) ; break;} 
else j s j+l; 

> 

i=i+l ; 

> 

return; 

end 
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£ ****** ******** ****** ***&&* ?<&***&*%*}(* ***&*£ ******** 

it 

it U P D li R 

// 
u 
is 

it Initial release — hn/3 november 7 9 
ii NAME: 
if updnr 

it FUNCTION; 

£ read all menu directory records from menufile and write 

It then to uenuout 

if retrieve record numbers for nenuid's stord in nr 

ir and store then in nr* 

it ALGORITHM: 

it open files for read from menufile, write to nenuout 

while there are more directory records 
read a record 
for all entries in record 
compare it with nr entry 
if found store record number 

update directory record (new menu id & rec number) 
write record to uenuout 



it 

if 

it 

H 
It 

it 
it 

It 

it 

smmmmmsmQwmmtmmmwmmmmmamwmit 

subroutine updnr; 

c ora;. on /blkl 3/mr , p tr ; 
integer*2 mr(21,50), ptr; 
integer*2 pl,p2,p3; 

integer*2 rbuff(544), dir(12,45), pl,p2,p3; 
equivalence (ruuf f(l),dir(l,l)); 

it close and open files 
call coffwd; 

if (ierror ( 104 ) != 0) goto 9999; it if END-OF-FILE 
icount=ptr-l ; it nunber of entries in r.r 

f or (i = l ; i<=KDREC; i=i+l ) it for all directory records 
{ 

read (LUPiR, 100) (rbuff (k) ,k=l,544) ; 

100 f ormat (544al ) ; 

if (icount==0) next; it done no more entries to check 
for (k=l ; k<=45 ;k=k+l ) 

< 

dir(ll,k)=dir(ll,k)-8192; 
dir ( 1 2 ,k)=dir ( 1 2,k) -E 1S2 ; it sub SP 

> 



for(j = l; j<=45; j=j+l) it for all record entries 
{ 
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if for all nr entries 



f or (n=l ; n<p tr ;n=n+l ) 

{ 

pl=mr (21 ,n) ; 

if (p 1 1=0 L nr (1 1 ,n)==0) { 
call intasc(pl,p2,p3) ; 
if (p2==dir(ll,j) L p3==air (12 , j ) ) 

{ f or (11= 1;11<=10; 11=11+1) 
nr (11+10, n)=dir(ll,j); 
icount=icount-l ; 

} 

> 

else { 

f or ( 1=1 ; 1<=10 ; 1=1+1 ) it for all characters of nenu-id 

{ 

if (pl 1=0) break; it if record nunber found 
if (mr(l,n) != dir(l,j)) break it char dont natch 
else if(l==10) it nenuid found 

{ 

for (11=1 ; 11<=10 ; 11=11+1 ) it copy new nenuid 
dir (11 , j )=nr (11+10 , n) ; 

p3=NDREC+l+( ( i— 1 ) *45+j-l ) *(i:iREC+l’OUEC ) ; it rec nur.ber 
nr ( 2 1 , n ) =p 3 ; 

call intasc (p3, p 1 , p2) ; it convert into ASCII coded 

dir ( 1 1 , j )=pl ; dir ( 12 , j ) =p2 ; 
icount=icount-l ; 

} 

> 

> 

> 

> 

> 



it stop if not all r.enu id's found 

if(icount>0) {write (6 , 1 9 ) ; 19 format ('Menu id not found — stop' ); stop ; ) 
9999 continue; 
return ; 
end 

#%*£*****&&& X'k*X&&*ik**&i<J<*k*X%*****&*1<iz*1c*i<**ic***&J<x **!<*&* **&*&% &&&*•&* 



it 

it P R I ti A G 

it 

ft &**&&*&•><&* &***&*%* ft** & ****** * ********* ft *********************** ******* 

it 

it Initial release — hn/1 novenber 79 
it 1IA11E : 

it primag 

it FUNCTION : 

it print the image of a requested menu 

it 



it it it it it it it It it it it If it if if it It it ir it it it it it it it it if it if it it it it it it it it it it It It it if It it if it it it it it it it it it It it it it it it if it if it if it 



subroutine primag; 
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common /b 1 k 1 3 / mr , p t r ; 
integer*2 nr(21,50),ptr; 
integer *2 dbuff(544),pl,p2,irec; 



if set menu id into nr 
call setmen(irec) ; 

if get menu record number from directory 
call updmr; 
irec=mr(21 , irec) ; 

it dummy read over all preceeding records 
i-l+NDREC; 
while(i<irec) 

{ 

read (LUMR, IOC) (dbuff (k) ,k-l,544) ; 

100 f ormat (544al ) ; 
i=i+l; 

> 

it read and print up to four image records 
for(i=l;i<=4; i=i+l) 

{ 

read (LUi-Jl, 100) (dbuff (k) ,k=l ,544) ; 

p 2 = 1 ; if pointer in record, start of command 

for(pl=l;pl<=540;pl=pl+l) 

{ 

if (dbuff (pi) ==8228 | dbuf f (p 1 ) ==8316 ) // CR LF or EFDOFI 

{ 

pl=pl-l ; 

if(pl>=p2) // do not print successive cr/lf 

write (LUW, 100) (dbuf f (1) , l=p2,pl ) ; if write command 

pl=pl+l; p2=pl+l; 

> 

if (dbuf f (p 1 ) “EilOOFI ) break; If read next record if any 
if (dbuf f (p 1 ) ==£NLGFR) 

{ i=5; break; > it stop, cone 

> 

> 

return ; 
end 



3 %*** * &£ %***£* k* ***** tl*** ***&*%*****&** ****%*£& **&**** ****** ** ***&>!{ 

it 



7 /********** ** ***** ************************************* ******** ******* 

it 

it Initial release — hn/2 november 79 
it NAME: 
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I 




















it propt 

it FUNCTION: 

v print all input options for a menu specified by 

it menu-id in nenuid 



it Jr it if if if it if it ir ir if it if it if if it it i t if it it it if it if it it if it if if it it tt if H it ir if if it ir it it it if if it it it it if it it it It it it it it it It it it it if if 



subroutine propt; 

common /blk4/menuid, ip ream; 
integer*2 menuid(lO) ,ipredn(10) ; 
common /blkl /image , imagep , inopt ,inoptp ; 

integer* 2 image ( II1ACEL) , imagep , inopt ( INOPTL , INiIAX) , inop tp ; 

integer *2 p 1 , p2 , p3 , p4 , p5 , irec ,mentyp , f Ig; 

integer*2 p ( 5 ) , menu(lO), dbuff (544); 

integer*2 run,rp; 

common /b lk 1 3 /nr , p t r ; 

integer *2 mr (2 1 , 50) , ptr ; 

integer int ; 

equivalence (inopt ( 1 , 1 ) , dfcuf f ( 1 ) ) ; 

call setmen(irec) ; it set menu 
call updnr; 
l=nr (21 ,irec)+4; 
ptr=l ; 

for(i=l ; i<=50; i=i+l) 

{ 

for(j-l;j<-21; j-j+1) 
mr(j ,i)=0; 

> 

it dummy read over all preceding records 
i=l+NDREC; 
while(i<l) 

{ read (LIJIiR, 100) (dbuff (k) ,k«l ,544) ; 

100 f ormat (544al ) ; 
i=i+l ; 

> 



it read both records 
read (LUIiR, 200) (dbuff (k) ,k=l ,272) ; 
read (LUMR, 200) (dbuff (k) ,k=271 ,542) ; 

200 f orirat (2 72a2) ; 

run=l ; 
rp=l ; 

if(l<=29) p4=36 it start menu 
else p4=29; 

int=inopt (3,p4) ; it number of input options 

pl=int/256; p2=nod (int , 256) ; call ascint (p 1 , p2 , p5 ) ; 

lr=l-4; 

write (LUW , 1 ) (menuid (111) ,111=1, 1C) ,lr; 

1 format (//'Input options for menu: ' , 10al/,'f irst record: i3/) ; 

write (LUU, 2) p 5 ; 2 format ( 'number of input op tions : ' , i3) ; 
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int=inopt (2 , p4) ; 

pl=int/256 ; p2=mod (int , 256 ) ; call ascin t (p 1 , p2 , p3 ) ; 
write(LUW,3) p 3 ; 3 f crnat ( 'r.enu type:',i3); 

p2=inopt (l,p4)/256; 
int=inopt ( 1 , p4 ) ; 
p3=mod(int ,256) ; 
call ascint (p2, p3,pl ) ; 
call saver.r(p 1 , irec) ; 

while (run<=2) { 
if (run==2) 

{ 

write(LUW , 4 ) (nr (1, rp) ,1=1 1 ,20) ; 

4 f ormat ( 'p redecessor menu: ',lCal); 
rp=rp+l; 

> 



it print entries of each input option 
for(p4=l; p4<=p5; p4=p4+l) 

{ 

it convert coordinates and action code into integers 
for (1=1 ; 1<=5 ; 1=1+1 ) 

{ 

p l = inopt (1+6 , p4) / 256 ; p2=mod (inopt ( 1+6 , p4) , 256) ; 
call ascint (p 1 , p2 ,p (1) ) ; 

> 



if(run==2) { 

write(LUT/,6) p4; 6 f ormat (//' input option', i 3 ) ; 

write(LUW,7) inopt(l,p4); 7 f ormat (' label : ',al); 

write(LUU,8) (inop t (1, p4) , 1=2, 6) ; 8 format ('log command: ',5a2); 



write (LUU, 9 ) p(l); 9 format ( 'button left collunn: ' ,i3) ; 
write (LUU, 10) p ( 3 ) ; 1 0 forrat ('button right collutr.n: ' ,i3) ; 
write (LUW, 1 1 ) p(4);ll f ormat (' but ton upper row:',i3); 
write(LUU, 12) p ( 2 ) ; 1 2 format ('button lower rov;:',i3); 
write(LUW, 13) p ( 5 ) ; 13 f ormat (' action code:',i3); 

> 



if(p(5)==l) it read menu 

{ 

pl=inopt(12,p4)/256; P 2=mod (inopt (12, p4) ,256) ; 
call ascint(pl ,p2,p3) ; 
if(run==l) call savemr(p3,irec) 
else { 

write(LUU, 14) (nr(l,rp) , 1=11,20) ; 14 f orir.at ( 'successor menu: ',10al) 
rp=rp+l ; > 

> 

else if(p(5)==2 | p(5)==4) it return character 

{ 

if (run==2) 

write(LUU, 15) inopt(12,p4) ; 15 f ormat ( 'character to return: ',al) 
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> 

else if return integer 

{ 

if(run==2) { 

pl=inopt(12,p4)/256; p2«cod(inopt (12 ,p4) ,256) ; 
call ascint(pl,p2,p3) ; 
if(p(5)==3) i if integer 

{ 

write (LUW, 16 ) p3; 16 format (' integer to return: i3) ; 

> 

else if(p(5)==14) 

{ 

write (LUW, 17) p3; 17 format('new task id:',i3); 

> 

else; >/ do not knot; yet 

> 

> 

> 

rp=l; run=run+l; if(run<=2) call updnr; } 

return ; 
end 



it 



n 



PRDIR 



it 

it 

it Initial release — hn/3 noveinber 79 
it NAI1E : 
it prdir 

it FUNCTION: 

it print the contence of all directory records 

it 



it it it it it it it it it it V if it it if if it it it it it it it V it if it it it it it if it it if 1; it it I s if it it it if it it it it if it it if it it it it it if it if it it if it it if it it it 



subroutine prdir; 

integer*2 dbuff(544), im(12,45), p(45); 
integer *2 p 1 , p2, f lag ; 
equivalence (dbuf f ( 1 ) ,im( 1 , 1 ) ) ; 



write (LUW , 1 ) ; 1 format (//'These are the directory records'//); 

It print all records 
f or (i = l ; i<=NDREC ; i=i+l ) 

{ 

f lag=0; 

read (LUHR, 100) (dbuff (k) ,k=l,544); 

100 format (544al ) ; 
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vrite(LUU,2) i; 2 format (/'record number: ' , i3) ; 



for(k=l ; k<=45 ; k=k+l ) 

{ 

pl-io(ll,k)-8192; p2-im(12,k)-8192; 
call ascint (p 1 ,p2,p (k) ) ; 
if (p(k)— 248) p(l:)-0; 

if(in(l,k)!-8240) flag-1; 

> 

It write menuid's and record numbers 
if (flag ! =0) { 
f or ( k= 1 ; k<=4 3 ; k=k+3 ) 

{ 

il=k; i2=k+2; if limits for 3 entries 

write (LUU , 3) ( ( (itn(n, 1) ,n=l , 10) ,p(l) ) ,l=il ,i2) ; 

3 f ormat (3 ( 10a 1 , i3 , 2x) ) ; 

> 

f lac-0; > 
else 

write(LUU, 77) ; // format ('There are no entries'); 

> 

return; 

end 



if 

If 3.1 C 0 F F W D 

n 

It 

ft*****************************************^******* Is* ******%’&*■&&'?:* 

it 

it Initial release — hn/31 October 79 
it NAME: 

It coffwd 

it FUNCTION: 

it close menufile 

it open nenufile 

it read from menufile 



it 

it ALGORITHM: 



it close file 

it rewind file 

it connect logical unit number and file 



# # # # // 7? ^ fr l 7 / // f7- // f/ // // 7/ f7 /A ;/ r/ // ^ // // // # # // // tV' // f > C # // # // // ^ // ;r 4 f7 # # // // 7 "/ 



;i :• Jt ji 4 t :i jt jut .1 a >t n j; u jt 

i. k it ir it 1 : v 7 ( lr 7 r it it it v ir ir 7/ ir if 



subroutine cof fvd ; 

cocnon /blkl 1 /irsave,iwsave; 
integer irsave, ivsave ; 

rewind LUUR; 



1S4 



call setfil(LULR, 'nenufile ') 



return ; 
and 



{!*************************************************** ****************** 

it 

it I N T A S C 

it 

if -kit £%&&•& & *&&***** kkkkk'kkkkk'k'kkkkkik kkkkkkkkkkkk ****************£*&*** ** 

if 



ir Initial release — hn/31 October 79 
f? NAME: 



it intasc (inp , out 1 , out2 ) 

it FUNCTION: 

'/ Conversion of an integer (0-900) into two integer*2 ASCII codes 



it ALGORITHM: 

If out 1 = inp/30 +40 (range ASCII 40-70) 

it out2= nod (inp , 30 ) +40 (range ASCII 40-69) 

It 



H A Jl Jl Jl Jt Ji A A JL It Jl Jl Jl .L JL h j’k Jt JL Ji JL A JL jt JL Jl Jl A A Jl , A Jt Jt H A .1 t Jl Jl Jt Jl 11 A Jl A Jl Jl A H 

r if If it it ir it it it it it i; it ir if h it it it it h it if it if if ir it if ir v ir it v it it it if if it it U it if if ir v ir it it it 



ififififififififififififffififi 



subrout ine intasc (inp ,outl,out2) ; 

integer *2 inp , out l,out2; 
integer nunl , nun 2 ; 

nunl=inp ; 

out l=inp/3C+40 ; 

nun2=mod (nunl , 30 ) ; 

out 2=num2+40 ; 

return; 

end 



jf kick kkkJck-k-kk’kk kick** kkkkkkkkkkk kkkkkkkkkkkkkkkkkkkkkkk * kk k ****** ******* 

it 

it A S C I N T 

it 

if ****** kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

it 

It Initial release — hn/31 October 79 
it NAME: 

It ascint (ini , in2 ,outp ) 

it FUNCTION: 

it Conversion of an ASCII coded number (0-900) into 

it an integer*2 value 

it ALGORITHM: 
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ir outp= (inl-40)*30 + (in2-3C) 



# 



subroutine ascint (ini , in2 , cutp ) ; 

integer *2 inl,in2,outp; 

outp= (in 1-40) *30+in2-4C ; 

return ; 

end 
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PATCH FOR RT-11 



; PATCH 



S = . 



PATIO: 



10 TO O' 


IS 


•TITLE 


$rcm, T L 


•ID ENT 


/0 3 / 


•PSECT 


CTS$I 



JSR 

NOP 


PC, PAT 10 


an* 


R1,R0 



.GLOEL 


$i:lchn 


nov 


4 (R3) ,R0 


ADD 


#$NLCHt:,R0 


a ip 


Rl.RO 


RTS 


PC 



.END 
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LIST OF ABBREVIATIONS 



ASCII 




American Standard Code for 
Information Interchange 


B C 


- 


Background 


CRT 


- 


Cathode Ray Tube 


DEC 


- 


Digital Equipment Corporation 


FC 


- 


Fo r eg round 


HP 


- 


Hewlett-Packard 


I/O 


- 


Input -Output 


LED 


- 


Light Emitting Diode 


NAVCOMSTA 


- 


Naval Communication Station 


SATCOM 


- 


Satellite Co mnu n ications 


SB 


- 


Status Block 


S S A 


- 


SATCOM Signal Analyzer 


PB 


_ 


Parameter Block 
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